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MULAC© 





Atingir as estrelas e um antigo sonho 
do homem. Com nossos program as, 
que permitem simular a trajetoria de 
um corpo no espapo, voce estara 
mais perto da realizacao desse sonho. 



No artigo sobre trajetorias (pagina 
766), vimos como a velocidade de um 
projetil pode ser separada, para fins de 
analise, em uma componente vertical e 
outra horizontal. Vimos tambem como 
a distancia do ponto de partida ao pon- 
to de chegada pode mudar conforme o 
angulo de lancamento e a velocidade ini- 
cial. Neste artigo, avancamos mais um 
pouco no estudo dos corpos em movi- 
mento. Analisamos objetos que se mo- 
vem em campos de baixa gravidade, si- 
mulando sua trajetoria a partir de pe- 
quenas distincias da superficie da Ter- 
ra e estudando corpos em orbita. 

Digite este primeiro programa. Ele £ 
um bom exemplo de como utilizar seu 
conhecimento de trajetorias para mon- 
tar jogos que usam disparos ou outros 
lancamentos mais desafiadores. 



10 FOR n=0 TO 31: READ a: 
POKE USR "a"+n,a: NEXT n 




20 BORDER 4; PAPER 0: INK 9: 
CLS 

70 LET a-INT (RND*55 : LET b- 
INT (RND*5)+26: LET c-INT C 
RND*8)+2: LET h-INT (RND*8)+2 
: LET at-INT (RND*lQ0-c*8) +1 : 
LET d=0 
90 LET d=d+l 
100 CLS : GOSUB 300 
110 INPUT "ANGULO ?".a2 
120 IF a2>89 OR a2<Q THEN 
GOTO 110 

130 INPUT "VELOCIDADE ?*,e 
140 IF e=0 THEN GOTO 100 
160 LET an=*a2* (PI/180) : LET 

x=n 

170 LET x2-x+(a+l)*8 

180 LET y=8+(x*TAN an-4*X*x/ (e 




*e*COS an*COS an) ) 

1H5 IF ATTH (21-INT (y/8) , INT 

(x2/8))=6 THEN GOTO 245 

J 90 TF y< = THEN GOTO 245 

200 IF (y>175 OR x2>255) AND c 

<10 THEN GOTO 90 

205 IF y>175 OR x2>255 THEN 

GOTO 2 70 

210 PLOT INK 8;x2,y: SOUND 

.Ol.y/10 

220 LET x=x+3 

230 GOTO 170 

24 5 TF x2>=b*8+3 AND x2<=b*8+ 

10 THEN PRINT AT 21, b;CHR5 

145: FOR n=20 TO STEP -1: 

SOUND .01,n: NEXT n: GOTO 270 

246 IF dO0 THEN GOTO 90 

270 IF d=10 THEN PRINT AT 8, 



ESC0LHA DA TRAJET6RIA 



AVALIACAQ DA DISTANCIA 



CIRCUNDAND0 A TERRA 



MA NOBRAS NO ESPAQ Q 
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10;"ERROU !": GOTO 280 

275 PRINT INVERSE ljAT 8,10;" 

BOM TIRO !**;AT 10,5; "VOCE CONS 

EGUIU APOS ":d 

280 PAUSE 100: PRINT BRIGHT 1 

; PAPER 2; INK 6; AT 13,8; "OUTR 

A VEZ?": PAUSE 200 
290 GOTO 70 

300 PRINT INK 5;AT 21.a;CHft$ 
144;AT 21,b;CHRS 146 
310 FOR n-1 TO c: PRINT AT 21- 
n+1,12;: FOR m=l TO c: PRINT 
INK 6;CHR$ 14?;: NEXT m: NEXT 

n 
320 RETURN 

500 DATA 3,6,60,40.104.60,126, 
255 

510 DATA 36,90,165,90,60,155, 
24.60 

520 DATA 24,36,66.153.153,66, 
36.127 

530 DATA 28,42,85,170,127.170, 
85,255 

D 

10 PMODE 4:DIM G (1) , E (1) ,T (1) ,B 

(1) 

20 FOR K-1536 TO 2526 STEP 32 :R 

EAD A:POKE K,A:NEXT 

30 GET (0,0)-(7,7) ,G,G:QET<0,8) 

-(7,15),E,G 

40 GET (0,16)-{7,23> ,T.G:OET(0, 

24)-(7,31) ,B.G 

50 DATA 3,6,60,40,104,60,126,25 

5 , 36, 90 , 165 ,90 , 60 , 155 , 24 , 60 

60. DATA 24,36,66,153,153,66,36, 



WGRAMA 



12 7,28,42,85,170.127,170,85,255 

70 A-RHD(51)-1:B-RND(51)+197:C- 
RND(8) :H-RND(8)+1:BT-RNDUQ0-C* 
B)+70:D«0:CL8 
80 D-D+l 

90 PCLS: SCREEN l,l:OOSUB 320 
100 IF INKEYJ-*" THEN 100 
110 PRINT: INPUT * ANGULO ";A2 
120 IF A2>89 OR A2<1 THEN 110 
130 INPUT * VELOCIDADE " ; E 
140 IF E-0 THEN 130 
ISO SCREEN 1,1 
160 AN-A2*ATN(l)/45;X-0 
170 X2-X+A+8 

180 Y-183-(X*TAN(AN)-4*X*X/(E*E 
*COS(AN)*COS<AN))) 
190 IF Y>190 THEN 250 
200 IF X2>-ST AND X2<ST+C*8+7 A 
ND ¥>1S3-K*8 THEM 250 
210 IF Y>0 THEN PSET CX2 ,¥ , 5) :SO 
UND 200-Y.l ELSE SOUND 25S AND 
(200-V) ,1 
220 X-X+3 

230 IF X2<255 THEN 170 
240 GOTO 290 
250 IF Y>190 THEN Y-1B4 
260 PUT(X2-4,Y)-(X2+3,Y+7) ,E,PS 
ET:PLAY-T5001ADECBFGAEDBODE- 
270 PUT(A,1B4)-(A+7,191),0,PSET 
: PUT (B, 184) -(B+7, 191 ),T, PSET 
260 IF X2>-B AND X2<B+7 THEN 30 


-290 IF D<10 THEN BO 
300 CLS:IF D-10 THEN PRINT §41, 
' ERROU 1- ELSE PRINT «41 , "BOM 
TIRO 1": PRINT #164." VOCE CON8E 
OUIU APOS";D;"DISPAROS ." 
310 FOR W-l TO 3000: NEXT: PRINT: 
PRINT" OUTRA VEZ . ..":FOR W-l T 
1200: NEXT: GOTO 70 
320 FOR X-0 TO C:F0R Y-0 TO H:P 
UT <ST+X*8 , 184-B*Y) - (8T+X*B+7 , 19 
1-B»Y) .B.PSET 
330 NEXT Y,X 

340 PUT(A,1B4)-{A+7,191>,0,PSET 
:FUT(B,U4)~(B+7,191) ,T,PSET:RE 
TURN 




m 



10 W-RND(-TIME) 

70 A-INT(RND{1)*51):B-INT(RND(1 

)*51+198) :C-INT(RND<1)*8+1) : H-I 

NT(RNDU)*9)+2:3T-INT(RND<1)*U 

01-C*8))+70:D-0:CLS 

80 D-D+l 

90 SCRE£N2:COSUB 320 

100 IF INKEYS-*"* THEN 100 

110 SCREENO: PRINT: INPUT" Angulo 

*:A2 

120 IF A2>89 OR A2<1 THEN 110 

130 PRINT: INPUT'Veloc idade ";E 

140 IF E-0 THEN 130 

150 SCREEN2:GOSUB 320 

160 AN-A2*ATN{l)/45:X-0 

170 X2-X+A+8 

180 ¥-183-{X«TAN(AN)-4*X*X/(E*E 

*COS(AN)*COS(AN)}) 

190 IF Y>190 THEN 250 

200 IF X2>-ST AND X2<ST+C*S+7 A 

ND Y>183-H»8 THEN 250 



210 IF Y>0 THEN PSET(X2 , Y) :A3-" 

N"+STR$ {INT ( (190-Y) /2) ) +*L19" : P 

CAY AS 

2 20 X-X+3 

230 IF X2<255 THEN 170 

240 GOTO 290 

250 IF Y>190 THEN Y-184 

260 LINE (X2,Y)-(X2,Y-8) : PLAY " 

01AAA" 

2B0 IF X2>-B AND X2<B+7 THEN 30 



290 FOR W-l TO 1500:NEXT:IF D<1 

THEN 80 

300 SCREENO:IF D-10 THEN PRINT: 

PRINT"TUDO FOI EM VAO!" ELSE PR 

INT : PRINT"BOM TIRO ! " : PRINT" Voce 

aeertou em" ;D; "diaparoa! " 
310 FOR W=l TO 3000:NEXT:PRINT: 
PRINT"Outra vez...":F0R W"»l TO 
1500: NEXT: GOTO 70 
320 FOR X-0 TO C : FOR Y-0 TO H : P 
SET (ST+X*8.184- y*8) 
330 NEXT Y,X 
340 LINE (A,184)-<A+5,1B4) : LINE 

(A+3,184)-(A+3,180) :LINE (B.19 
4)-(B+5,184) :LINE (B+3 , 184 ) - (B+ 
3,180) :RETURN 



LBE] 



10 FOR I - 770 TO 795: READ A: 

POKE I, A: NEXT 
20 POKE 768,2 

70 A - INT t RND (1) * 51) :B - 
INT ( RND (1) * 51 + 198) :C - 



INT { RND (1) « 8) ♦ 1:H ■ I 
NT ( RND (1) * 9) + 2: ST - INT 

( RND (1) * (101 - C * 8)) + 7 
0:D - 0: HOME : VTAB 21 
80 D - D + 1 

90 HGH : HCOLOR- 3: GOSUB 320 
100 GET AS 

110 INPUT "ANGULO? "iA2 
120 IF A2 > 89 OR A2 < 1 THEN 
110 

130 VTAB PEEK (37) : HTA8 20: 
INPUT "VELOCIDADE? "(E 
140 IF E - THEN 130 
160 AN - A2 * ATN (1) / 45:X - 


170 X2 - X + A + B 
180 Y - 157 -CX * TAN (AN) - 
4 * X * X / (E * E * COS (AN) 
* COS (AN) ) ) 
190 IF Y > 160 THEN 250 
200 IF (X2 > - ST) AND (X2 < 
ST + C * B + 7) AND (Y > 157 - 
H * 8) THEN 250 
210 IF Y > THEN HPLOT X2.Y: 

POKE 768.2: POKE 769,200 - Y: 
CALL 770 
220 X-X+3 
230 IF X2 < 259 THEN 170 
240 GOTO 290 

250 IF Y > 156 THEN Y - 158 
260 HPLOT X2,Y TO X2,Y - 8: FO 
R X - 1 TO 12:W - PEEK ( - 163 
36) : NEXT 

2B0 IF X2 > - B AND X2 < B + 
7 THEN 300 
290 FOR I - 1 TO 1000: NEXT : 




IF D < 10 THEN 80 

300 FOB I - 1 TO 1500: 

HOME : TEXT : IF D - 10 

RINT : PRINT "TUDO FOI '. 

• GOTO 310 

305 PRINT 

PRINT "VOCE ACERTOU EM 
ISPAROS ! ■ 
310 FOR I - 
PRINT : PRINT 



PRINT "BOM 



TO 4000 
OUTRA VEZ 



OR I 



320 

TO H 

* 8 

330 

340 



1 TO 4000 : NEXT 



NEXT : 
THEN P 
NIJTIL!" 

TIRO! " : 
" jD; " D 

NEXT ! 
. . " : F 
GOTO 7 



FOR X - TO C: FOR Y = 
HPLOT ST + X * 8,158 - Y 



NEXT : NEXT 

HPLOT A,15B TO A + 5,158: 
HPLOT A + 3,] 58 TO A + 3,150: H 
PLOT B,158 TO B + 5,156: HPLOT 
B + 3,158 TO B + 3,150: RETURN 

5000 DATA 172.1,3,174,1,3,169 
,4,32,168,252,173.48,192,232,20 

8, 2S3, 136, 208, 239, 206,0,3,208, 2 

31.96 

O programa solicita que voce especi- 
fique a velocidade e o angulo de lanca- 
mento para executar um disparo de um 
ponto pr6ximo ao canto inferior esquer- 
do da tela ate um alvo situado junto ao 
canto inferior direito. Dois fatores difi- 
cultam o jogo: a determinacao aleato- 
ria da djstancia entre o ponto de lanca-^, 
mento e o alvo e a presenca de uma bar- 



reira de tamanho variavel entre os dois 
pontos. Qualquer trajet6ria que se es- 
colha deve ser alta o bastante para trans- 
por essa barreira. 



AVALIACAO DA DISTANCIA 



Conhecemos so as posicoes do atira- 
dor, do obstaculo e do alvo. No entan- 
to, podemos estimar corretamente a ve- 
locidade e o angulo necessaries para 
produzir uma curva que leva o projetil 
acima do obstaculo ate atingir o alvo. 
Com um pouco de pratica, voce vera 
que e possfvel obter grande proporcao 
de acertos em uma serie de tiros. 

Mas, em geral, as coisas nao sao tao 
faceis, Muitas vezes temos apenas uma 
ideia aproximada da distincia ate o al- 
vo, e devemos calcular a velocidade e 
angulo de tiro com este dado impreci- 
so. Analisando se o tiro caiu para ca ou 
para Id do alvo, avaliacoes mais preci- 
sas vao sendo feitas, ate que se consiga 
sucesso. O programa seguinte mostra es- 
se processo. Depois de gravar o progra- 
ma anterior, apague-o e digite estas 
linhas: 



"10 CLS 

20 INPUT "VELOCIDADE INICIAL 

(1-10000 m/s)" ,sp 

30 IF ap<l OR sp>10000 THEN 

GOTO 20 

40 INPUT AT 4,0; "ANGULO (1-90 

grans) " , a 

50 IF a<l OB a>=90 THEN GOTO 
40 

60 LET a-a* (PI/180) 

70 LET r=BD*Bp*SIN (2*a)/10 

80 PRINT AT 10,3; "O ALCANCE F 

OI DE " ; INT (r+.5);" metroa" 

90 PRINT AT 20,1; "QUALQUER TE 

CLA PARA RECOMECAR (0 SAD" 
100 PAUSE 0: LET aS-INKEYS: IF 
aS="*" THEN GOTO 100 
110 IF aS<>"0" THEN GOTO 10 



■ ■ 



110 IF AS- 
10 



10 CLS 

20 INPUT" VELOC. INICIAL (1-100 

00 N/S) ";SP 

30 IF SP<1 OR SP>10000 THEN 10 

40 INPUT" ANGULO (1-90 GRAUS)"! 

A 

50 IF A<1 OR A>90 THEN 40 

60 A-A*ATNU)/45 

70 R-SP*SP*SIN(2*A)/10 

80 PRINT: PRINT" O ALCANCE FOI D 

E";INT(R+.5) ; "HETROS" 

90 PRINT .PRINT" QUALQUER TECLA 

PARA RECOMECAR '0' SAI" 

100 AS-INKEYS: IF AS-"" THEN 100 



'0" THEN CLS: END ELSE 



KU 



10 CLS 

20 INPUT'VELOCIDADE DE LANCAMEN 
TO (1-10000 M/S)" ;SP 
30 IF SP<1 OR SP>10000 THEN 10 
40 INPUT" ANGULO DE LANCAMENTO ( 
1-90 GRAUS) *;A 
50 IF A<1 OR A>89 THEN 40 
60 A-A*ATN(l)/45 
70 R=SP*SP*SIN(2*A)/10 
80 PRINT: PRINT'A DISTANCIA ALCA 
NCADA E" ; INT (R+. 5) ; "METROS" 
90 PRINT :PRINT"PRESSIONE <0> PA 
RA TERMINAR OU QUALQUER OUT 
HA TECLA PARA CONTINUAL"; 
100 AS=INKEYSrIF AS-*" THEN 100 
110 IF AS="0* THEN CLS:END ELSE 
10 



US] 



10 HOME 

20 INPUT "VELOCIDADE DE LANCAM 

ENTO (1-1000 M/S>? ";SP 

30 IF SP < 1 OR SP > 10000 THE 

N 10 

40 INPUT "ANGULO DE LANCAMENTO 

(L-90 GRAUS)" ;A 
50 IF A < 1 OR A > 89 THEN 40 
60 A = A * ATN (1) / 45 
70 H - SP * SP * SIN (2 * A) / 

10 
80 PR TNT 
ALCANCADA 
" METROS" 

90 PRINT : PRINT "TECLE <0> PA 
RA TERMINAR OU QUALQUER 
OUTRA TECLA PARA CONTINUAR"; 
100 GET AS 
110 IF AS - 
ND 
120 GOTO 10 



PBINT "A DISTANCIA 
DE "; INT (R + -5) i 



'0" THEN HOME 



O programa pede valores para a ve- 
locidade inicial (linha 20) e para o an- 
gulo de lancamento (linha 40). A linha 
70 calcula e mostra a distancia a que es- 
ses dois valores levariam o projetil. A 
variavel R corresponde a distancia; SP 
refere-se a velocidade e A, ao angulo. 
O valor aproximado para a aceleracao 
da gravidade prdximo a superficie da 
Terra e igual a 10. 

Ignora-se o efeito da resistencia do ar 
mas, em experimentos reals, ele deveria 
ser considerado. A maior velocidade de 
lancamento permitida e 10000 m/s. A 
velocidade de 2000 m/s foi usada em 
lancamentos de objetos a grandes atti- 
tudes, para pesquisar o espaco. Os ob- 
jetos atingem 180 km de altitude quan- 
do lancados a um angulo de 90°. Mas. 
sem contar a resistencia do ar, chegam 
a 250 km. 



'ROGHAMACAO BASIC M 



F 



CIRCUNDANDO A TERRA 



Se urn objeto e lancado em urn an- 
gulo que o leva muito longe da superff- 
cie da Terra, o efeito da friccao do ar 
diminui. Porem, quando se pretende 
que ele atinja uma grande distancia do 
ponto de lancamento, <£ preciso levar em 
conta a curvatura da Terra. 

Um dos primeiros a considerar esta 
questao foi o cientista ingles Isaac New- 
ton. Ele imaginou um poderoso canhao 
que lancasse seus projeteis do alto de 
uma montanha suficientemente grande 
para que seu pico ficasse fora da atmos- 
fera terrestre. Tiros dados a velocidades 
erescentes levariam a distancias tambem 
crescentes se a Terra fosse plana. Mas, 
como ela e curva, a superficie se afasta 
do ponto de lancamento, fazendo com 
que o proj&il percorra distancias ainda 
maiores . 

Eventuaimente, argumentava New- 
ton, um lancamento poderia ter uma ve- 
locidade inicial tao alta que o projetil 
nunca atingiria o solo, mas poderia, em 
termos tedricos, atingir o pesquisador 
bem na nuca. A medida que o projdtil 
caisse em direcao ao solo, este "cairia" 
sob ele (visto que a Terra £ redonda). 
Dessa maneira, o projetil ficaria para 
sempre em queda livre — ou seja, esta- 
ria em 6rbita. 

Uma vez que um objeto escapa da 
gravidade de um planeta, sua velocida- 
de e distancia determinant um tipo de 
6rbita — circular ou eliptica. 

Para que se possa prever a trajetdria 
e fazer medicdes relacionadas a um pla- 
neta ou satelite, sua orbita precisa ser 
conhecida, ou seja, devemos saber a for- 
ma exata da elipse. O grau de "achata- 
rnento" da elipse e sua excentricidade 
(E), que corresponde a proporcao entre 
seu comprimento e sua largura. Quan- 
do E £ igual a 1 , temos uma elipse tao 
larga quanto comprida, ou seja, um 
circulo. 

Digite e execute este programa para 
ver o efeito da variacao de E entre va- 
lores menores e maiores que 1: 



10 CLS 

30 INPUT "EXCENTRICIDADE (.1 

a 1.9)". e 

40 IF e<.l OB e>1.9 THEN 

GOTO 30 

50 PLOT 127,87+eMO 

60 FOR a«0 TO 2*PI+.2 STEP .1 

70 DBAW 127-»-(40*SIN a) -PEEK 

23677,87+ (e*40*COS a) -PEEK 

23678 

80 NEXT a 



90 PRINT AT 20,1;"QUALQUEB TE 
CLA PARA RECOMECAR (0 SAI>" 
100 PAUSE 0: LET a$»INKEY$: 
IF j$""" THEN GOTO 100 
110 IF a$<>*Q" THEN GOTO 10 

a 

10 PMODE 4.1:PCLS 

30 CLS:INPUT'EXCENTRICIDADE (.1 

A 1.9) ":E 
40 IF E<1 OR £>1.9 THEN 30 
SO SCREEN 1,1 
70 CIRCLEU28.96) .48.5.E 
100 AS-INKEY3:IF A3-"" THEN 100 
110 IF AS--0' THEN CLS: END ELSE 

30 



Wi 



30 CLS:INPUT"EXCENTR[C1DADE (0." 
1 A 1.9)";E 

40 IF E<.i OR E>1.9 THEN 10 
50 SCREEN 2:C0L0K 15.4,4 
70 CIRCLEU2B.96) .48,15, , ,E 
100 A$=INKEY$:TF AS="" THEN 100 
110 IF A$="Q" THEN CLS : END ELSE 
30 



HJ[£] 



10 TEXT 

30 HOME : INPUT " EXCENTRTCIDAD 

E (0.1 A 1.9) ";E 

40 IF E < .1 OR E > 1.9 THEN 3 



50 HGR2 : HCOLOR= 3 

60 X - 130 :Y = 90 

70 FOR A = TO 2 * 3.1416 STE 

P .05 

80 HPLOT X + 45 * SIN (A) . Y - 

(E * 45 * COS (A) ) 
90 NEXT 
100 GET A$ 

110 IF AS - "0" THEN TEXT : H 
OME : END 
120 GOTO 10 

O programa gira entre as Imhas 30 e 
110 para desenhar elipses. A linha 30 de- 
termina o valor de E de acordo com sua 
escolha. O TRS-Color e o MSX usam 
o comando CIRCLE (linha 70) para de- 
senhar as curvas. Os outros micros em- 
pregam um laco FOR... NEXT para de- 
senhar cada ponto. 

Digite valores de E na faixa indicada 
na tela. E igual a 1 corresponded a um 
circulo; E menor que 1, a uma elipse 
achatada em cima e embaixo, e E maior 
que 1 , a uma elipse achatada lateralmen- 
te. Assim, toda orbita pode ser conside- 
rada uma elipse, com um valor particu- 
lar de E. 

Uma vez em orbita, um satelite ou 
uma espaeonave nao precisam de pro- 
pulsao, pois estarao caindo livremente. 
O uso de foguetes ira movfi-los para uma 



6rbita diferente, Quanto menor for o 
raio da 6rbita, maior sera a velocidade * 
com que o objeto deve se mover. Digite 
o prdximo programa para ver como is- 
so funciona: 




10 CLS : LET gc=0 

40 LET r-40: LET rt-10+INT ( 



RND*60) ! IF ABS (r~rt)<10 

THEN GOTO 40 

50 CIRCLE 127,87,4 

60 LET s-.l: LET a-O: LET at- 

INT (RNDMO)-H: LET f=-0 



BO LET a»a+a 

100 LET at»at+.l*SQR ((40/rt) 

3) 

110 IF INKEYS="7" AND r<65 

THEN LET f-f +1 : LET r-r+2 : 




66 PROGRAMACAOBAl 



LET a-B*SQR { ( (r+2) /r ) "3) : 
GOTO 130 

115 IF INKEY$-"6" AND r>B THEN 
LET f-f+1: LET r-r-2: LET B=a 
»SQR (((r+2)/r) *3) : GOTO 130 
120 FOR p=l TO 5: NEXT p 
130 LET x=r*SIN a: LET y=r*COS 
a 

140 LET xt-rt*SIN at: LET yt=r 
t*COS at 

150 PLOT 127+x,87+y 
160 SOUND .02,r/2 
165 IF gc<>0 THEN PLOT OVER 
Iil2 7+ox.87+oy 

170 PLOT OVER 1 ; 1 2 ?+xt , 8 /+y t : 
LET ox=xt : LET oy-yt: LET gc.=l 
180 IF ABS (x-xt)>4 OR ABS (y- 
yt)>4 THEN GOTO B0 
J 90 PRINT AT 20,12;fi" PONTOS" 
200 GOTO 200 



D 



10 PMODE 4 ;PCLS: SCREEN 1,1 

40 R-30:RT-10+RNDC7Q) : IF ABS(R- 

RTX20 THEN 40 

50 DRAWBH128.96S8NUNRNDL" 

60 S-.l:A-O:AT-RND(10) :F-0 

80 A-A+S 

95 LT-AT 

100 AT-AT+.1*SQR({40/RT)~3) 

110 IF PEEK (341) -247 AND R<95 T 

HEN F-F+1 :R-R+l:S-S*SOR(({ft-l)/ 

R)- 3) ELSE IF PEEK (342) -247 AND 

R>8 THEN F-F+1 :R-R-1:S-S*SG.R((( 

R+1}/R)*3)ELSE FOR K-l TO 25:NE 

XT 

130 X-R*SIN(A) :Y-R*COS(A) 

140 XT-RT*SIN(AT) : YT-RT*COS (AT) 

150 PSET(128+X,96-y,5) 

160 SOUND R*2.1 

170 PSET(128+XT,96-YT,5J 

175 FSET{128+RT*SIN(LT) ,96-RT*C 

OS(LT) ,0) 

180 IF ABS(X-XT)>-4 OR ABS(Y-YT 

)>-4 THEN 80 

190 CLS: PRINT" VOCE USOU";F;"TO 

OUES" 



fffi 



5 U=RND(-TIME) 

10 SCREEN2 

40 R=30:RT-INT(RND(1)*70)+U:IF 

ABS(R-RT)<20 THEN 40 
50 CIRCLE [128.96) ,2 
60 S«.1:A-0:AT=INT(RNDU)*11)+1 
:F=0 

80 A=A+S 
95 LT=AT 

100 AT*AT+.1*SQR{ (40/RT) "3) 
105 FOR I«l TO 5:AS-INKEY8:IF A 
SO" THEN 1-5 
2 34 NEXT 

110 IF A$-CHRS{30) AND R<95 THE 
N F-F+1 :R«R+1:S-S*SQR([(R-1)/R) 
-3) 

120 IF A$=CHfi$(31) AND R>B THEN 
F-F+1 : R-fl-1 : S=S*SQR ( ( (R+l) /&) ' 
3) 




Urn jogo simples usando trajetA 



Orbita de qualro planetas inlernos. 



130 X=R*SIN(A) :Y=R*COS(A) 

140 XT=RT*SIN(AT) :YT«RT*COS(AT) 

150 PSET (128+X.96-Y) 

170 PSET (128+XT.96-YT) 

175 PSET (128+RT*SIN (LT) ,96-RT* 

COS(LT) ) ,0 

180 IF ABS(X-XT}>«4 OR ABS(Y-YT 

)>=4 THEN 80 

190 SCREEN0:PRINT"VOCB USOU";Fi 

"TOQUES" 



BDE1 



INT ( RND (1) * 
ABS (R - RT) < 2 



HPL 



10 HGR2 

40 R = 30:RT ■ 

70) + 11: IF 
THEN 40 

50 HPLOT 126,96 TO 130,96: 
OT 128,94 TO 128,98 
60 S - . 1:A - 0:AS - INT ( RND 

(1) * 11) :F = 
SO A - A + S 
95 LT - AS 

100 AS = AS + .1 * SQR ((40 / 
RT) " 3) 

105 POKE - 16368,0 
110 IF PEEK { - 16384) - 181 
AND R < 95 THEN F-F+1:R=R 

+ 1:S = S * SQR (( (R - 1) / R 
> ~ 3) 
120 IF 
AND R > 
- ItS ■ 

" 3) 
125 POKE - 16368,0 
130 X = R * SIN (A) :Y 
OS (A) 



PEEK ( - 16384) - 182 
8 THEN F-F + 1 :R-R 
S * SQR (((R+l) / R) 



R * 



140 XT 
* COS 



150 
170 
175 



RT * 

(AS) 

HPLOT 128 

HPLOT 128 

HCOLOR= 

SIN (LT) ,96 



SIN (AS) :YT 

+ X.96 - Y 
+ XT, 96 - YT 

HPLOT 128 + 
- RT * 



COS 



RT 



RT 
(LT) 



: HCOLOR- 3 
180 IF ABS (X - XT) 
ABS {Y - YT) > =4 



> » 4 OR 
THEN 80 



190 TEXT 
USOU ";F;" 



: HOME : 
TOQUES' 



PRINT "VOCE 




MAN0BRAS NO ESPAC0 



Executando o prograjull"««*i.t| vera" 
urn satelite-alvo e a trajetoria de uma 
nave em 6rbita. Tente igualar as duas 
drbitas usando as setas para cima e pa- 
ra baixo (elas correspondent as teelas 6 
e 7 no aRectrum e no Apple). 

A linha 40,determina o raio R da 6r- 
bita da nave ctnuo 200; o raio do alvo 
e" definido ao acas^A (in ha 60 especi- 
fica as variaveis paraLffl-posicoes iniciais. ' 
O ponto essencial do programa esta na 
linha 100, que usa uma importante lei 
da ffsica: o quadrado do tempo para 
percorrer uma 6rbita completa divillido 
pelo cubo do raio e uma constante. Potw 
essa razao, o SQR e a potencia 3 estao ^ 
na linha 100. 

Faca as manobras utilizando as teclas 
citadas para aumentar ou diminuir a 61- 
bita, Lembre-se de que quanto menor a 
6rbita, maior a rapidez. 



M0VIMENT0 PLANETARI0 



Na realidade, manobrar de uma 6r- 
bita para outra e muito mais complica- 
do do que sugere o programa anterior. 
A dificuldade nao se encontra na mu- 
danca de uma brbita para outra, mas na 
localizacao de um alvo na vastidao do 
espaco. E, para complicar um pouco 
mais, e" preciso levar em considerate 
que a gravidade do Sol, da Lua e, tam- 
berri, dos planetas tem efeito sobre o 
movirnento de uma espaconave, 

Na pratica, poderosos computadores 
sao as ferramentas dos navegantes do es- 
pago. Eles controlam a velocidade, o 
tempo e a dire^ao dos foguetes, gaian- 
tindo que estes se mantenham na traje- 
t6rta desejada. 

Uma vez na orbita correta, a nave cai 
livremente no campo gravitactonal do 
sistema solar. Ela precisa apenas de pe- 
quenas correcfies de curso no decorrer 
de meses e at^ anos de viagem — e qua- 
se tao prevtsfvel quanto os planetas que 
circundam o Sol. 

O programa seguinte permitiia a ob- 
servagao do movirnento dos planetas. 



RKOGRAMACAO BASIC 66 




: LET ac=0 
p(9) : DIM i( 
|b(9): DIM x 



ItEAD d(t),p( 



(1 




10 BORDER 4: CLJ 

20 DIM d(9) : DI^ 

9) : DIM a (9) : Dli 

(9) : DIM y{9) 

30 FOB t-1 TO 9: 

t) : NEXT t 

40 INPUT "Quantoe planetae 

-9) ?".B 

50 IF a<l OB e>9 THEN GOTO 

40 
60 LET sc«d<8)/3238 LET t-p(a 
>/75 

70 PBINT "Ha urn espaco de "; 
INT t;" 'diaa" ' "entre cada pon 
to.": PBINT #1 ; * <SPACE> PARA 

CONTINUAR" JL^^^ 

INKEYSOCHRS 32 THEN 

80 I I I'l ^fc 
100 PBINT |li "PHWMJLDNE <SPACE 
> PARA RECOMECAB" 
110 LET Ifl: LET 
/180 

120 FOB q-1 TO s 
130 LET r=d(q)/Bc: |ET a=r: 
LET b-r: LET e-0: LET p-P(q)/t, 
140 IF q-1 THEN LET e- . 2 : LET 
b="a* . 98 

150 IF q-8 THEN LET e-=.26: 
LET b-a*.96 * 
160 LET l (q)=-l (q)+360/p 
180 LET V>g*i (q) : LET x=INT (a 
COS y-e) ) : LET y-INT (b*SIN 

'H^lcOO THEN f PLOT 
BRIGHT lHl2 7+x(q) ,87+y (q) 
210 PtOT TMGHT ].j 127 + a (q) /4 . 
87+b(q)/4: LET x. (q) =a (q) /4 : 
LET y (q)-b(q)/4 
240 LET a(q)=x: I 
NEXT q 

250 LET m-m+t 
260 IF INKEYS=CHl 
RUN 

270 LET gc-1 : GOI 
280 DATA 58, 86,1 | 
,228,687 

290 DATA 776,43: 
2870,30685 
300 DATA 4497. 6*190,5969, 90741 



32 THEN 

120 

225,150,365 

1427,10759, 



■ ■ 



... 



10 PMODE 4:PCL8 

20 DIM D(8) ,P{8),I(8) ,A(8) ,B(B) 

30 FOR T-0 TO B:READ D(T).P{T>: 

NEXT / 

40 CLS: INPUT * QUANTOS PLANETAS 

U 9) •iBjf 
50 IF S<1 OR S>9 THEN 40 

S-9-l:SC-D{S)/90:T-P(S)/75 
70 TOINT: PRINT" HA UM ESPACO DE 
"; INT (T) ;"DIA3": PRINT" ENTRE CA 
DA PONTO": PRINT: PRINT: PRINT "PR 
ESSIONE<ESPACO>PARA CONTINUAH" 
75 IF INKEYSO" " THEN 75 
80 SCREEN 1,1 
90 CIRCLE (128.96? ,1,5 
110 G-ATN(l)/45 



120 FOR Q-0 TO S 

130 R-D£Q)/SC:A-R:B-R:E-0:P-P(Q 

}/T 

140 IF Q-0 THEN E-.2:B-A*.98 

150 IF 0-8 THEN E-.26 :B-A*.96 

155 IF S>5 AND Q<6 THEN 245 

160 IF P>3 THEN P-INTtP+.5) 

170 I(Q)-I(OJ+360/P 

180 Y-G*I (Q) : X-INT CA* (COS (Y) -E) 

):Y-INT{B*SIN(Y)} 

200 CIRCLE (128+A(Q) .96~B(Q)) ,1. 



220 PSET (126+A(OJ,96-B{Q},5) 

230 CIRCLE (128+X.96-Y) ,1,5 

240 A(Q)-X:B(Q)-Y 

245 NEXT 

250 M-W+T 

260 IF INKEYS-" " THEN RUN 

270 GOTO 120 

280 DATA 58.86,108,225,150.365, 

228,667 

290 DATA 778,4333,1427,10759,28 

70,30685 

300 DATA 4497,60190,5969,90741 



20 DIM DtBJ.PCB) ,I(B} .ACS) ,B(8 



fto 



»),P(8) ,1(8) ,A(8) ,B(6) 
[O 8: READ D(T] , P (T) : 



PLANETAS (1-9J 





10 CLS 
20 DIM 
30 FOR T- 
NEXT 

40 INPUT"QUAN1 
";S 

50 IF S<1 OB S>9 TtfWL40 
60 S = S-1:SC=D(S)/90:T=P(.S1 /7* 
70 PRINT: PRINT"n« un nJMABO DE" 
;INT(T) ;"DIAS ENTRE CADA POUTO" 
:PRINT:PRINT:PRINT"TECLE A BaI 
A DE ESPACOS PARA CONTINUAR" 
75 IF INKEYSO" " THEN 75 
60 SCREEN 2 

90 CIRCLE (128,96) .1.15 
100 G=ATR(l)/45 
120 FOB Q-0 TO S 
130 R-D(Q)/SC:A-R:B-R:E-0: 
)/T ^^^^. 

140 IF Q=0 THEN E=.2:B=A*. 
150 IF 0=8 THEN E* . 26;B=A* . 96 
160 IF P>3 THEN P-INTC^ 
170 I(Q)-I(Q)+360/P 
180 Y-G*I(Q) :X-INT(A*<COS{Y)-E) 
) :Y=INT(B*SIN(Y)) 
200 CIRCLE U28+ACQ) ,96-BCQ)) 
15 

220 PSET(128+A(Q) ,96-B(Q)) .5 
230 CIRCLE (12B+X.96-Y) ,1,6 
240 A<Q)-X:B(Q)-Y 
245 NEXT 
250 M-M+T 

260 IF INKEYS-" " THEN RUN 
270 GOTO 120 

280 DATA 58,88.108,225,150,365, 
228,687 

290 DATA 778.4333.1427, 
70.30665 
300 DATA 4497,60190,5969,90741 



10759,26 



[BE! 



10 TEXT 



) 

30 FOB T • TO B: READ D(T) ,P 

(T) : NEXT 

40 HOME : INPUT 'QUANTOS PLANE 

TAS (1-9) "fS 

50 IF S < 1 OR S > 9 THEN 40 

60 3 - S - 1:SC - D(S) / 90:T - 

PCS) / 75 
70 PRINT : PRINT "HA UM ATPASO 

DE " : INT (T) i " DIAS ENTRE CAD 
A PONTO": PRINT : PRINT "TECLE 
A BARRA DE ESPACOS PARA CONTINU 
AR" 

75 GET A3: IF AS < > CHRS (3 
2) THEN 75 

80 HGR2 : HCOLOR- 3 
90 HPLOT 126,96 
110 G - ATN (1) / 45 
120 FOR Q - TO S 
130 B - D(Q) / SC:A - R:B - R:E 

- 0:P - P(Q) / T 
14 IF Q - THEN E - -2:B = A 

* .98 
150 IF Q - B THEN E - . 26:B - 
A * .96 

155 IF S > 5 AND Q < 6 THEN 24 
5 

160 IF P > 3 THEN P - INT (P 
+ .5) 

170 I(Q) - ICQ) + 360 / P 
180 Y - G * I(Q):X - INT (A * 
( COS CY) - E)) ;Y - INT (B * 
SIN CY)) 

200 HCOLOR- 0: HPLOT 129 + ACQ 
),96 - B(Q) TO 128 + ACQ). 95 - 
B(Q) TO 127 + ACQ), 96 - BCQ) TO 

128 + ACQ) ,97 - BCQ) 
210 HCOLOR- 3: HPLOT 128 + ACQ 
,96 - BCQ) 

HPLOT 129 + X,96 - Y TO 1 2 
B "1^,95 - Y TO 127 + X.96 - Y 
TO lSl^; X.97 - Y 
240 A(Q^£ X:B(Q) - Y 
245 NEXT* 
250 M - M +' 
260 POKE - ffl^S.O 
265 IF PEEK C ^16384) > 121 
THEN RUN 
270 GOTO 120 
280 DATA 55,88,108.22^150,36 



2870,3 
300 DATA 

1 



Ao executar o programa, voce dcve 
escolher o niimero de planetas que de- 
seja ver. Quanto raaior o niimero deles, 
mais complicada a figura. Para identi- 
ficar os planetas, lembre-se de que Mer- 
ciirio esta mais perto do Sol, seguido por 
Venus, Terra, Marte, Jupiter, Saturno, 
Urano, Netuno e Plutao. 

Execute o programa com diferentes 
valores. Note que as 6rbitas de dois pla- 
netas — Mercurio e Plutio — sao elip- 
ticas. Na verdade, as outras tambem o 
sao, mas tSm urna excentricidade tao pe- 
quena que parecem circulates. 




AVALANCHE: 
EFEITOS SONOROS 



Um jogo de acao nHo seria complete 
sem uma abertura musical. Nosso video* 
game toca a melocia Greensleeves, no 
torn e ritmo corretos. Talvez voce criti- 
que nossa escolha, por julga-la pouco 
adequada a um. videogame. Contudo, de 
acordo com a lenda, Henrique VIII es-' 
creveu essa melodia para sua esposa Ana 
Bolena. Mais tarde, ela teve um fim bas- 
tante tragico, assim como sera o de Wil- 
lie, se cometer qualquer descuido no jo- 
go. Alem disso, nao teremos que pagar 
direitos autorais — o que e muito im- 
portante. . . 



A rotina Assembly listada a seguir 
utiliza a sub-rotina da ROM que contro- 
la o comando SOUND, o que facilita a 
execucao das notas musicais. 



10 


REM 


org 60000 


20 


REM 


Id ix, 57359 


30 


REM 


msk Id b,19 


40 


REM 


tune push be 


50 


REM 


Id d, (ix+1) 


60 


REM 


Id e, (ix+0) 


70 


REM 


Id h. (lX+3) 


80 


REM 


Id 1. (ix+2) 


90 


REM 


push ix 


100 


REM 


call 949 


110 


REM 


pop ix 


120 


REM 


Id de,4 


130 


REM 


add ix.de 


140 


REM 


pop be 


150 


REM 


djnz tune 


160 


REM 


ret 



Podemos escolher qualquer melodia, 
contanto que fornecamos a essa rotina 
as informacSes necessarias sobre o que 
vai tocar. O programa BASIC que apre- 
sentamos a seguir col oca na memdria os 
dados que o computador precisa para 
executar Greensleeves, As notas, com 
suas respectivas duracoes, formarao 
uma especie de tabela, colocada logo 
abaixo da tabela ASCII que contem os 
textos do titulo e das instruc5es. 

5 CLEAR 57358 
10 FOR n-57359 TO 57434 STEP 
2: READ a: POKE n+l.INT (a/ 
256): POKE n,a-(256*INT (a/ 
256)) • NEXT n 

20 DATA 98,1460,233,1223,131, 
1086 , 2 20 , 964 , 78 , 900 , 14 7 , 964 , 



261, 1086, 110 .1297, 131, 1642, 49 
,1460,110,1297,233,1223,98. 
1460, 14 7, 14'60, 44 .164 2 ,98 ,1460 
,220, 1297.92, 1548. 220, t959 



COMO FUNCI0NA 



A rotina comeca colocando o ende- 
reco 57359 no registro IX. Como regis- 
tro-fndice, IX vai servir de apontador e 
seu valor inicial corresponde ao inicio 
da tabela de notas. 



Em seguida, 19 6 colocado em B, re- 
gistro que servira como contador. Seu 
conteudo inicial corresponde ao niime- 
ro de notas que serao executadas (o tre- 
cho de Greensleeves que vamos tocar 
tem dezenove notas). Esse valor e" guar- 
dado temporariamente na pilha, pelo 
comando push be. O registro C precisa 
ser guardado junto com o B porque nao 
existe um comando que guarde registros 
de oito bits na pilha. As instrucoes push 
e pop so aceitam pares de registros co- 
mo operandos. 

Mas por que guardar o valor de B e 
C na pilha, se nenhum dos dois regis- 



Vamos ouvif um som antes de colocar 
nosso personagem em cena. Que tal um 
grande sucesso de 1560? Seme-se diante 
de seu micro e prepare uma abertura 
musical digna de Avalanche. 




tros sera usado at£ que a instrucao pop 
be recupere seu conteudo original? Es- 
ta & uma boa pergunta. Ertquanto o va- 
lor de BC esta na pilha, o programa cha- 
ma uma sub-rotina da ROM, que pode 
muito bem usar o registro B, Embora 
uma sub-rotina possa aherar o valor de 
qualquer registro, ela sempre deixa a pi- 
lha intacta. Assim, sempre que chama- 
mos uma sub-rotina que nao conhece- 
mos bem, devemos guardar o conteudo 
dos registros importantes na pilha. 

O primeiro numero da tabela e colo- 
cado em DE; o segundo, em HL. A ope- 
racao, diferentemente do usual, empre- 
ga comandos com enderecamento inde- 
xado, de modo que IX e usado como 
apontador. Os registros t6m que ser car- 
regados um de cad a vez, ja que nao ha 
comandos que carreguem pares de regis- 
tros nesse tipo de enderecamento. Se 
consultarmos a listagem do programa 
BASIC, veremos que cada niimero ocu- 
pa dois bytes, ainda que muitos sejam 
menores que 256. 

Os niimeros formam pares. O primei- 
ro valor determina a duracao da nota — 
na realidade, ele especifica o numero de 
ciclos gerados pela rotina do comando 
SOUND. O niimero corresponde, en- 
ta.o, a freqriSncia da nota multiplicada 
pela sua dura?ao em segundos. O segun- 
do numero determina a tonalidade da 
nota. Paia calcular seu valor, podemos 
usar a formula 43750O/T-3O125, onde f 
e a frequ§ncia da nota. 

A rotina coloca o conteudo de IX na 
pilha, para preservar o valor do apon- 
tador, e, em seguida, chama a sub-ro- 
tina da ROM. A sub-rotina do coman- 
do SOUND 6 chamada pela instrucao 
call 949. Ela usa os valores de HL e DE 
para produzir o som. A instrucao pop 
ix recupera da pilha a posigao do apon- 
tador na tabela de notas; o ponteiro 
avanca um par de notas, com a coloca- 
cao de 4 em DE (Id de, 4) e a soma des- 
se valor a IX (add ix,de). O emprego de 
add e necessario, ja que nao existe uma 
instrucao especial para somar valores ao 
indice IX. Poderiamos usar quatro ins- 
trucoes inc ix, mas o processo seria mais 
demorado. 

O valor original do contador volta 
para BC. A instrucao djnz subtrai uma 
unidade de B e, se este nao foi ainda re- 
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duzido a zero, ela faz o processador vol- 
tar para emitir mais uma nota. Apos de- 
zcnove notas, o processador deixa o la- 
50 e encontra ret. 

Para testar a sub-rotina, utilize 
RAND USR 60000, mas nao se esquega 
de que a tabela de notas deve estar re- 
gistrada na memdria. 



TOQUE SUA PROPRIA MEL0D1A 



Mesmo depois de toda aquela conver- 
sa sobre Henrique VIII, calvez voce 
queira ouvir outra musica. Embora nao 
seja aconselhavel fazer a substituicao 
demro do nosso jogo, voce pode usar a 
rotina separadamente. 

Escolha a musica de sua preferlncia 
e traduza-a nos parimetros que a roti- 
na utiliza para emitir notas musicais. 
Lembre-se, contudo, de que melodias 
diferentes requerem um outro valor pa- 
ra contador B, que determina o nii- 
mero de notas executadas. 



O TRS-Color executa a melodia 
Greensleeves por intermedio da rotina 
Assembly, que i dada a seguir. Nao se 
esqueca de aumentar a memdria dispo- 
nivel com POKE 25,6:POKE 26,1:NEW 
e tambern de proteger uma area para o 
programa em cbdigo. 

10 ORG 30000 
20 LDX IMU8IC 
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STX MUPOINT 

LDA 119 
P3H8 A 
LDA SFF01 
ANDA 1247 
STA 3FF01 
LDA SFF03 

ANDA 1247 

STA SFF03 

LDA 9FF23 

ORA 48 

STA 9FF23 

MAIN LDU MUPOINT 

ORCC IS50 

PULU A.X 

CHPU »MUSIC+57 

BLO KONE 

LDU 4MU8IC 

HONE STU MUPOINT 

PSHS X 

LDB 1252 

MTUO STB 9FF20 

MTHR LEAX -1,X 

BNE MTHR 

LDX ,S 

CLR SFF20 

MFOU LEAX -l.X 

BNE MFOU 

LDX , S 

DECA 

BNE MTUO 

LEAS 2.S 

DEC ,S 

BNE MAIN 

ANDCC «3AF 

PUI.S A, PC 

MUPOINT FDB 975BA 

MUSIC FCB 9B, 0,169, 233 

FCB .158,131,0 

FCB 141.220,0,125 

FCB 78,0,118,147 

FCB 0,125,255.0 

FCB 141,110.0,168 
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FCB 


131,0,212,49 


470 


FCB 


0,189,110,0 


480 


FCB 


168,233,0,156 


490 


FCB 


98.0.189,147 


500 


FCB 


0,169.44.0 


510 


FCB 


212,96,0,189 


520 


FCB 


220,0,166,92 


530 


FCB 


0,200,220,0,252 



' 



O programa tern duas entradas: uma 
fica em 30000 e outra em 30008 (linha ' 
50). Se a rotina for chamada pelo pri- 
meiro endereco, executara a melodia in- 
teira; se for chamada pelo segundo, exe- 
cutara apenas uma nota. Esta ultima op- 
cao permite que se toque a melodia sem 
interromper a acao do jogo. Podemos 
tocar uma nota, fazer alguma outra coi- 
sa na tela, tocar outra nota, e assim por 
diante. 



ARMAZENE A MELODIA 



O valor do nitulo MUSIC e coloea- 
do no byte rotulado MUPOINT. Era- 
bora na listagem — e, posteriormente, 
na membria — o valor de MUSIC ja es- 
teja nesse byte, usa-se MUPOINT para 
guardar a posicao da ultima nota exe- 
cutada, o que 6 util quando tocamos a 
melodia uma nota de cada vez. 

O comando LDA #19 coloca no 
acumulador o niimero de notas do tre- 




hum 



cho de Greensleeves que vamos execu- 
tar — dezenove. Se voce 1 nao quiser to- 
car a melodia inteira de uma vez, colo- 
que no acumutador o niimero de notas 
que pretende ouvir. Assim, optando pe- 
fa execuciio da musica nota por nota, 
voce devera colocar 1 em A. 

O conteudo de A 6 ievado para a pi- 
Iha da maquina por PSHS A. Trata-se, 
porem, apenas de uma armazenagem 
temporaria. Mais tarde, o programa 
precisara do niimero de notas. 

As nove instrucoes que se seguem via- 
bilizam a producao de sons, colocando 
os valores apropriados no chip de som 
do TRS-Color. 



I 



A ROTINA PRINCIPAL 



MUPOINT aponta para a pr6xima 
nota a ser executada, de modo que o en- 
dereco do proximo byte da tabela de no- 
tas <t colocado no apontador da pilha do 
usuario pelo comando LDU MU- 
POINT. Isto efetivamente transforma a 
tabela de notas na pilha do usuario. 

A instrucao ORCC #$50 impede — 
"desabilita", no jargao da informatica 
— interrupcoes, mascarando o conteu- 
do do registro indicador de status. 
Quaisquer que sejam os vaiores dos bits 
4 e 6 desse registro, eles passam a ser 1 
quando fazemos a operacao "ou" en- 
ire seu conteudo e 50 em hexadecimal 
(80 em decimal). 



(iomo U esta apontando para a ta- 
bela de notas, a instrucao PULU A,X 
traz para dentro de A o prbximo byte 
da tabela, e para dentro de X os dois 
bytes seguintes. A16m disso, tambem so- 
ma 3 ao registro U, que passa a apon- 
tar para o proximo byte. 

Os dados necessarios para o som vem 
em grupos de tres bytes. O primeiro cor- 
responde ao niimero de vezes que a no- 
ta sera tocada. Os dois seguintes deter - 
minam a dura^ao que influi na freqiien- 
cia da nota. 

Em seguida, o registro U e" compara- 
do com # MUSIC + 57, o endereco fi- 
nal da tabela de notas. O comando BLO 
provoca um desvio se o valor de U for 
menor, pois, nesse caso, ainda nao che- 
gamos ao fim da tabela e a pr6xima ins- 
trucao sera ignorada. Ela colocaria o en- 
dereco inicial da tabela de volta no 
apontador e a musica poderia, entao, ser 
tocada novafnente. 

De qualquer maneira, o valor do 
apontador volta para MUPOINT, para 
que o processador saiba qual e" a pr6xi- 
ma nota. A duracao da nota, que se en- 
contra em X, 6 colocada temporaria- 
mente na pilha da maquina. 

As instructs LDB #252 e ST A 
$FF20, referentes ao conversor anal6gi- 
co-digital, preparam-se para usar o alto- 
falante da TV. LEAX - 1,X diminui o 
valor de X, e BNE faz o processador re- 
petir a instrupSo anterior, ate que X se- 
ja zero. 

LDX ,S coloca o valor da pilha em 
X, funcionando como um PULS X, sem 
somar nada, no entanto, ao apontador 



da pilha. CLR SFF20 desliga o alto- 
faiante da TV e a mesma rotina de con- 
tagem em X 6 repetida. 

O valor da pilha retorna a X e o nii- 
mero de vezes que a nota vai ser tocada 
e" diminufdo em uma unidade — DECA. 
Outra instrucao BNE faz o processador 
repetir o laco MTWO, ate" que A seja re- 
duzido a zero. 

A instrucao LEAS 2,S Iimpa a pilha 
e DEC ,S subtrai 1 do conteudo do pr6- 
ximo byte da pilha da maquina — nii- 
mero de notas, colocado na pilha no inf- 
cio. BNE MAIN faz o processador vol- 
tar e executar a prbxima nota, caso o nii- 
mero de notas nao tenha sido reduzido 
a zero. 

ANDCC #AF permite novamente 

— ou seja, "reabilita" — a ocorrencia 
de interrupcSes, "desmascarando" o re- 
gistro de status. Finalmente, PULS 
A,PC retira dois valores da pilha da ma- 
quina, colocando em A o valor da nota 

— reduzido a zero — e em PC, os pro- 
ximos dois bytes. Eles correspondent ao 
endereco de retorno da sub-rotina, co- 
locado all quando a rotina foi chama- 
da. O procedimento, nesse caso, i equi- 
valente a um comando RTS. 



Para dotarmos nosso videogame de 
uma. trilha sonora, precisaremos utilizar 
o microprocessador especial que o MSX 
possui para produzir sons: o PSG — 
Programabie Sound Generator. Apre- 
sentamos, no artigo publicado a pagina 





Qual a ditaren^a antra os comandos 
outi a otlr no MSX? 

No artigo da pagtna 21 3, vtmos co- 
mo empregar o comando de acao em 
bloco olir. Aqui, utilizamos urn coman- 
do muito parecido: outi. 

Tanto olir como outi sao usados 
quando se quer transf erir dados que es 
tao em uma tabela na mem6ria RAM, 
atraves de uma porta de saida. Esses 
dois comandos agem sobre os registros 
HL, B e C, HL e usado como aponta- 
dor, B como contador e C cont^m o nu- 
mero da porta de safda. Assim, antes 
da primeira execucao do comando, o 
par HL deve conter o endereco inicial 
da tabela, e o registro 8, o numero de 
elementos da mesma. 

Ambos somam uma unidade ao eon- 
teudo de HL e subtraem o mesmo de 
B. Mas ha uma diferenga entre etas: o 
comando otlr repete esta operacao 
muitas vezes, transferindo vanos ca- 
racteres ate que B seja reduzido a ze- 
ro; outi, por sua vez, sd transfere um 
numero a cada execucao, 

comando otir a, por si mesmo, um 
laco completo, utilizando B como con- 
tador e fazendo sozinho o teste do in- 
dicador de zeros. Mostra-se, portanto, 
mais adequado quando queremos 
transferir dados a grande velocidade. 
No artigo anterior, aqui mencionado, 
ele foi utilizado para transferir um ban- 
co de caracteres para a membria de 
vtdeo, 

Ja a instruct outi deve fazer parte 
de um laco. Ela vai diminuindo o valor 
de B, mas nao e capaz de descobrir por 
si mesma que este foi reduzido a zero. 
Para isso, o programador precisa incluir 
um teste do tipo jr nz. emprego da 
instruclo outi 6, assim, mais indicado 
quando precisamos interromper a 
transfer Sncia dos dados a todo instan- 
te para a realizacao de algum tipo de 
processamento. Em nosso caso, jamais 
poderfamos transferir valores para o 
PSG em alta velocidade - obterlamos 
barulho, e nSo musica. 

A transferencia foi feita numa velo- 
cidade irregular, sendo interrompida 
por pausas cuja duragao e variavel. A 
execucao dessas pausas e a constan- 
te mudanca nos numeros dos registros 
que estavam sendo alterados — envia- 
dos por out 160, a — correspondem a 
realizacao de algum tipo de proces- 
samento. 



168, uma introducao ao funcionamen- 
to desse dispositive 

O PSG possui catorze registros. Os 
valores ali colocados determinant os di- 
versos pararmetros do som produzido. 
Podemos controlai a tonalidade, o vo- 
lume e sua evolucao ao longo do tempo 
(envoltiria ou envelope). Tetnos a nos- 
sa disposicao tres canais, que funcionam 
simultaneamente, emitindo cada qual 
um som diferente, Todos eles podem to- 
car notas musicals e, tambem, produzir 
ruidos. 

As rotinas Assembly deste artigo exe- 
cutam Greensleeves em duas vozes — is- 
to e, sao usados dois canais para pro- 
duzir acordes. Para que o computador 
saiba que notas tocar e com qual dura- 
cao, um programa BASIC colocara uma 
tabela de notas na mem6ria. 



CONDICOES INICIWS DO PSG 



A rotina listada a seguir prepara o 
PSG para tocar a musica, colocando va- 
lores lidos na tabela dentro dos registros 
apropriados. Use nosso Assembler pa- 
ra montaMa na mem6ria. Nao se esque- 
ca de modificar o comando CLEAR da 
linha 5000, para proteger a mem6ria aci- 
ma de &HCFFF, As rotinas em c6digo 
devem ser montadas primeiro. Em se- 
guida, pode-se apagar o Assembler e 
executar o programa BASIC que apa- 
rece no final do artigo. 
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end 



Dispomos de duas alternativas para 
modificar o valor de um registro do PSG 
em BASIC. Podemos utitizar tanto o co- 
mando SOUND R,V— que coloca no 
registro R o valor V — quanto a instru- 
cao OUT. 

O microprocessador PSG 6 conside- 
rado um perif6rico da unidade de pro- 
cessamento central, de maneira que exis- 
tent dois enderecos da area de comuni- 
cacao — I/O — que funcionam como 
portas de entrada e saida. O valor en- 
viado pela porta 160 indica o registro 
que sera alterado, enquanto a porta 161 
corresponde ao destino do novo valor 
do registro. Dessa maneira, o par de ins- 
trucoes OUT 160 t R:OUT 161,V equiva- 
le ao comando SOUND R,V. 

Como vimos no artigo da pagina 213, 
existe, em linguagem de maquina, uma 



instrucao out que funciona de modo pa- 
recido ao comando BASIC de mesmo 
nome. Contudo, como vamos transfe- 
rir valores de uma tabela para o PSG, 
usaremos um comando de acao em 
bloco. 

Nossa rotina utiliza o comando ou- 
ti, cujas caracteristicas devemos enten- 
der antes de passarmos a examinar o 
funcionamento do programa. Esse co- 
mando envia o valor contido no ende- 
reco apontado pelo par HL atraves da 
porta que tern seu numero no registro 
C. Em seguida, o conteiido do par HL 
aumenta em uma unidade e o conteiido 
de B diminui tambem em uma unidade. 

O comando outi £ litil para transfe- 
rir dados de uma tabela, um a um, atra- 
ves de uma porta. Antes de sua primei- 
ra aparicao, devemos colocar em HL o 
endereco inicial da tabela, em C, o nu- 
mero da porta, e em B, o numero de ve- 
zes que queremos repetir o processo. Ca- 
da vez que outi e executado, HL passa 
a apontar para o endereco seguinte da 
tabela. B e diminuido e, quando for re- 
duzido a zero, o indicador de zero sera 
estabelecido. 

A primeira instrucao determina o en- 
dereco inicial da rotina, - 12216. Em se- 
guida, os registros HL, B e C recebem 
os parametros da instrucao outi. O en- 
dereco inicial da tabela de notas e colo- 
cado em HL por Id hi, - 14450. Como 
sao necessarios tres pares de valores para 
ativar o PSG. a linha Id b,6 coloca 6 em 
B. A linha rotulada com init coloca em 
C o numero da porta de saida que de- 
termina o registro. 

Quando se executa a instrucao outi 
pela primeira vez, o valor que marca o 
inieio da tabela, apontado por HL, e en- 
viado pela porta 160 — conteiido de C. 
Se olharmos o programa BASIC no fi- 
nal do artigo, veremos que foi enviado 
o mimero 7. Soma-se uma unidade ao 
par HL, que aponta, entao, para o pr6- 
ximo numero da tabela, e subtrai-se uma 
unidade de B. 

A instrucao Id c,161 faz com que o 
valor enviado por outi na linha seguin- 
te se dirija a porta 161. Se consultannos 
novamente a listagem BASIC, veremos 
que foi enviado o numero 24. O valor 
de HL aumenta novamente e o de B di- 
minui. Como B ainda nao foi reduzido 
a zero, o processador retorna ao rdtulo 
init. 

O laco entre as Hnhas 40 e 80 repete- 
se tres vezes. A instruclo outi e execu- 
tada seis vezes, de forma que sao envia- 
dos tres pares de numeros. Subtrai-se de 
B uma unidade seis vezes. Na sexta vez, 
a condicao de jr nz.init nao e satisfeita, 
e a instrucao ret provoca o retorno da 
sub-rotina. 



Cada volta desse laco equivale a urn 
comando SOUND. O primeiro valor en- 
viado e a registro, e o segundo, seu no- 
vo conteiido. Mas que papel desempe- 
nha cada registro? 

A primeira volta do laco coloca 24 no 
registro 7 do PSG. Esse registro selecio- 
na o modo de utilizacio dos canais de 
som. Cada um dos seus seis primeiros 
bits determina se um canal vai produzir 
som, rufdo ou se vai permanecer em si- 
lencio. Quando valem 1, os tres primei- 
ros bits ativam os canais A, B e C, res- 
pectivamente, para a producao de mi- 
do. Os tres bits seguintes ativam os ca- 
nais para a producao de sons musicais. 
Como 24 e 0001 1000 em binario, ele ati- 
va a producao de notas musicais em A 
eB. 

Na segunda volta do laco, o valor 15 
vai para o registro 8 do PSG. Esse re- 
gistro controla o volume do canal A — 
15 e o volume maxima. 

Na terceira e ultima volta, o registro 
9, que controla o volume do canal B do 
PSG, recebe o valor 15. 



T0CAND0 UM ACORDE 



Depois de ativar o PSG, podemos co- 
mecar a tocar nossa miisica. Greenslee- 
ves compoe-se de acordes de duas no- 
tas, cada uma emitida por um dos ca- 
nais ativados. As notas serao obtidas na 
mesma tabela, que especifica tambem 
qua! e a duracao do acorde foraiado por 
cada par delas. A rotina listada a seguir 
executa um acorde. Monte-a e grave-a 
separadamente. 
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Os acordes sao compostos por notas 
emitidas simultaneamente pelos canais 
A e B. Registros do PSG controiam a 
tonalidade de cada nota. Os registros 
e 1 controiam a tonalidade do canal A, 
enquanto 2 e 3, a do canal B. Os regis- 
tros e 2 correspondent aos bytes me- 
nos significativos; 1 e 3, aos mais signi- 
ficativos. Para emitir um acorde preci- 
saremos, entao, modificar o conteiido 
de quatro registros do PSG, usando no- 
vamente a instrucao outi. Por isso, a ro- 
tina comeca acertando os valores de HL, 
B e C, depois de estabelecido o endere- 
co inicial. 

A instrucao Id hi, - 14494 coloca em 



HL o endereco da primeira nota da ta- 
bela. Como emitkemos quatro notas, o 
numero quatro 6 colocado em B. O nu- 
mero da porta 161 — utilizada para en- 
viar novos valores de registros ao PSG 
— e colocado em C. 

Nesta rotina, o registro A contera o 
numero do registro do PSG a ser alte- 
rado; assim. seu valor inicial sera — 
Id u,0 

O comando out 160,a envia o conteii- 
do de A pela porta 160, indicando ao 
PSG o registro que sera alterado. Em se- 
guida, A aumenta em uma unidade. A 
instrucao out! envia, entao, atraves da 
porta 161, o pr6ximo valor da tabela, 
apontado por HL. HL aumenta em uma 
unidade e B diminui o mesmo tanto. En- 
quanto B nao for reduzido a zero, a ins- 
trucao jr nz,tune repetira o laco entre as 
linhas 60 e 90. 

Na primeira volta do laco, o registro 
A contem 0, de maneira que o registro 
O do PSG recebe o valor da tabela 
apontado por HL. A cada volta, A au- 
menta em uma unidade e os registros 1 , 
2 e 3 do PSG recebem os pr6ximos va- 
lores da tabela de notas. 

Na quarta vez que outi estd sendo 
executado, o valor de B reduz-se a ze- 
ro. A condicao de jr nz, tune nao e mais 
satisfeita e a instrucao ret provoca o re- 
torno da sub-rotina. 



CONTR0LE DA DURACAO DO ACORDE 



O som correspondente ao conteiido 
dos registros do PSG e emitido conti- 
nuamente, ate que modifiquernos um de 
seus parametros ou desliguemos o PSG. 
Assim, para controlarmos a duiacjio do 
som, usamos uma sub-rotina que nao 
faz absolutamente nada por algum tem- 
po, provocando uma pausa. Enquanto 
durar essa pausa, o acorde sera execu- 
tado; quando ela terminar, poderemos 
emitir um novo acorde, A duracao sera 
determinada por um numero da tabela 
de notas. Eis a rotina: 
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Quando a rotina de emissao do acor- 
de termina, deixa em HL o endereco do 
pr6ximo numero da tabela de notas. Es- 
se numero indica a duracao do acorde. 



O PROCESSADOR DO TRS-COLOR 
Os usuarios do TRS-Color costumam 
sentir muita dificuldade quando fazem 
suas primeiras experiencias com lin- 
guagem de maquina. Para eles, aqui 
vao algumas recomendacoes. 

processador 6809 e um dos mais 
poderosos chips de oito bits. Sua ver- 
satilidade tern, contudo, um preco ele- 
vado, pois o grande numero de coman- 
dos e formas de enderecamento pode 
confundir o principiante. 

No 6502 e no Z-80, processadores 
das outras maquinas, e possfvel fazer 
muita coisa interessante com um pe- 
queno conhecimento dos comandos de 
armazenamento e de controls de lacos. 
Basta saber que valores colocar nas po- 
sicoes adequadas. Programas um pou- 
co maiores exigem o uso da pilha para 
a armazenagem temporaria, mas isto 
n§o e um grande probtema. 

6502, processador do Apple e do 
TK-2000, conta com varios tipos de 
enderecamento. Mas sao tao poucas 
as instrucoes dispon(veis que essa van- 
tagem deixa de ser significativa. 

6809 6 um precursor dos chips de 
dezesseis bits. Toda a sua estrutura de 
enderecamento e armazenagem ba- 
seia-se em niimeros de dois bytes. 
Seus registros cornportam dezesseis 
bits. Ao mesmo tempo, ele e um chip 
de otto bits. Cria-se, assim, uma infini- 
dade de modos de enderecamentos — 
surgindo termos como p6s~byte e en- 
derego efetivo —, o que confunde mui- 
ta gente. Sao tantos os comandos.de 
acao em bloco, executando taref as di- 
ferentes, que 6 dif foil deduzir suas fun- 
coes pelo nome. 

O que mais confunde o principian- 
te, contudo, e a utihzacao das pilhas. 
Ha duas pilhas, a do usuario e a da ma- 
quina, cada uma com seu apontador. 
E elas nao sao usadas apenas para 
guardar valores temporariamente. O 
uso inteligente de seus apontadores 
permite economizar varies linhas de 
programaclo, mas certas operapSes 
com as pilhas sao de deixar qualquer 
um atordoado, E, pior ainda, e impos- 
stvel fazer programas sem esses recur- 
sos avancados. 

A sa(da esta no estudo cuidadoso 
das instrucoes explicadas no texto. Na 
falta de um manual do 6908. liste as 
caracterfsticas de cada instrucao. Ou- 
tra medida obrigat6ria e a leitura dos 
textos introdutdrios a programacSo em 
codigo, ja publicados em INPUT. Neles 
o usuario do TRS-Color encontrara con- 
ceitos fundamentais sobre o seu pro- 
cessador, 
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e e colocado em B pela instrucao Id 
b,(hl). registro B determinara o mi- 
mero de vezes que o laco rotulado Idp 
vai ser executado. Nesse laco, 1000 e co- 
locado no par HL, que diminui uma 
unidade a cada volta do laco interno 
Idq. Guarda-se HL temporari anient e na 
pilha, para gastar tempo. 

A instrucao sbc hl.de subtrai zero — 
conteudo de DE — do conteudo de HL. 
Faz-se isto para afetar o indicador de ze- 
ros, quando HL for reduzido a zero, 
pois a instrucao pop HL nao modifica 
esse sinalizador. Quando HL contem ze- 
ro, a condicao de jr nzjdq nao e satis- 
feita e o processador passa ao laco ex- 
terno, controlado por B. 

A cada volta do laco externo, B di- 
minui. Quando de se torna zero, ret 
provoca o retorno da sub-rotina. 

Podemos controlar o andamento da 
miisica aumentando ou diminuindo o 
numero de execucoes do laco interno. 
Para isto, basta colocar urn numero di- 
ferente de 1000 em HL, na linha 30. 



A ROTINA PRINCIPAL 



O tree ho de Greensleeves que vamos 
executar tern 88 acordes. As rotinas que 



m 



ERRATA 
ASSEMBLER DO TRS-COLOR 

Para que seu programa Assembler 
funcione a contento, voc# precisara fa- 
zer algumas modificacoes: 

10 PCLEAR 1: CLEAR 3000:CLS:PRIN 
T «233 i , IJHCTALIZANDO":ft3-CHft$< 
13): POKE 146.1 

100 DATA COK.115. 3.CWAI , 108. l.D 
AA.2S, .ORA,186,l,TST.125.3.LEAS 
, 66 , 3 , LEAU ,67,3, LEAK , 64 , 3 , LEA* . 
65.3,HUL,61, ,EORA, 184, l.ORB. 250 
.1 

1550 Pl»1478:PO-Pl:PZ-0 

1560 PRINT #448-P2.K;TAB(6)T9(K 
2) :P9-P0 + LEM(TS!K2) ) 

1565 IF LENCT3<K21)+P0>15Q3 THE 
N P0-P0-32:P2-P2+32:P1-P1-32:GQ 
TO 1565 

1950 IF XSO'S" OB BD3<'0- OR B 
D9>*0' THEN 1980 

A atteragao na linha 10 6 necessa- 
ria devido aos POKE que aumentam a 
memoria disponfvel. Se voce 1 nSo exe- 
cutar esses comandos antes de ler o 
Assembler na f ita cassete, ele nSo con- 
seguira montar o videogame. 

As demais modificagflas ajustam al- 
guns defeitos contidos no programa 
original. 



mostramos ate agora ativaram o PSG e 
tocaram um acorde apenas. Para a exe- 
cucao da melodia toda, precisaremos de 
um programa principal, que chame or- 
denadamente as sub-rotinas. Monte a 
rotina que se segue com seu Assembler, 
gravando depots os eddigos. 



10 


org -12166 


20 


call -L2216 


30 


Id b,8fi 


4.0 


loop push be 


50 


call -12197 


60 


push hi 


70 


call -12183 


80 


pop hi 


90 


inc hi 


100 


pop be 


110 


dim loop 


120 


call -122.1.3 


130 


ret 


140 


end 



A primeira providencia do progra- 
ma principal e chamar a sub-rotina que 
ativa o PSG, que fica no endereco 
- 12216. Quando o processador retor- 
na, HL aponta para a primeira nota da 
miisica — setimo ruimero da tabela. 

A instrucao Id b,88 coloca em B o nu- 
mero de acordes que serao executados. 
Como a rotina que emite o acorde utili- 
zara o registro B como contador, o con- 
teudo deste e 1 temporartamente guarda- 
do na pilha com push BC. 

A rotina que emite o acorde e, entao, 
chamada. Note que o endereco de trans- 
ferencia £ - 12197, e nao - 12200 (veja 
listagem). Ignora-se a primeira iinha — 
linha 20 — da rotina do acorde, pois HL 
ji content o valor - 14494, que corres- 
ponde ao sdtimo numero da tabela. Es- 
sa linha foi indui'da no programa para 
que a melodia possa ser tocada mais de 
uma vez, sem precisarmos ativar nova- 
mente o PSG. 

Quando o processador retorna da 
sub-rotina, o par de registros HL apon- 
ta para o proximo numero da tabela. 
Como HL sera usado como contador na 
sub-rotina de pausa, seu valor tambem 
6 guardado na pilha com push hi. 

A instrucao call -12183 chama a 
sub-rotina que £ responsavel pela dura- 
cao do acorde. 

Quando a rotina de pausa termina, 
o conteudo de HL e" recuperado da pi- 
lha. Esse valor, porem, esta "atrasado", 
pois aponta para o numero da tabela 
que controla a duracao da nota, ja usa- 
do pela rotina de pausa. Para que HL 
aponte para a prdxima posicao da tabe- 
la, precisamos somar 1 ao seu conteu- 
do, usando inc hi. 

O conteudo de B — nosso contador 
de acordes — £ recuperado da pilha por 
pop be. Em seguida, a instrucao djnz 



loop subtrai 1 de B e volta para o rdtu- 
lo loop enquanto B nao tiver sido redu- 
zido a zero. 

O laco entre as linhas 40 e 1 10 e re- 
petido 88 vezes, uma para cada acorde. 
As notas sao executadas ate que sua to- 
nal idade se modifique — sendo, portan- 
to, substituidas por outras notas. Se o 
programa parasse aqui, o PSG ficaria 
emitindo o ultimo acorde da cancao du- 
rante todo o jogo, o que voce" certamen- 
te nao deseja. 

Para desligar o PSG, a rotina que o 
ativou no inicio £ chamada novamente, 
so que com outro endereco de transfe- 
renqia. A instrucao call- 12213 ignora 
a primeira tinha da sub-rotina, que co- 
locava o endereco inicial da tabela em 
HL. Assim, como HL ainda aponta pa- 
ra o pr6ximo numero nao usado na ta- 
bela, a sub-rotina utiliza os ultimos seis 
numeros. Se procurarmos na listagem 
BASIC, veremos que estes sao 8, 0, 9, 
0, 10 e O.Os registros 8, 9e 10, que con- 
trolam o volume dos tres canais, rece- 
bem, entao, o valor 0, e o PSG e si- 
lenciado. 

Como toda rotina que se preze, esta 
termina com ret. 

£ interessante notar a importancia do 
apontador HL na execucao da melodia. 
No decorrer da execucao, ele percorre 
toda a tabela. Para que isso seja possi- 
vel, a cada volta do laco entre as linhas 
40 e 110, seu valor e atualizado quatro 
vezes pela instrucao euti e uma vez por 
inch! — o que corresponde a transferen- 
cia de cinco valores da tabela. Quatro 
deles vao para o PSG e um vai para o 
registro B controlar a duracao da nota. 
Como a rotina de pausa utiliza HL, en- 
tre a execucao das linhas 60 e 80 o apon- 
tador da posicao atual na tabela de no- 
tas fica guardado na pilha. 



A TABELA DE NOTAS 



O conjunto de rotinas apresentado 
executa uma melodia em duas vozes. Na 
realidade, ele pode tocar qualquer me- 
lodia desse tipo. Cabe a tabela de notas 
determinar os acordes que serao inclui- 
dos. Para cria-la, apague o Assembler 
e use este programa BASIC. 

10 CLEAR 200,-14.501 

20 FOR 1-0 TO 451 

30 READ A: POKE -14500+1, A 

4 NEXT 

1000 DATA 7,24,8,15,9,15 

1010 DATA 253,0,253,0,10 

1020 DATA 213,0,253.0,30 

1030 DATA 189.0,213,0,10 

1040 DATA 169,0,213.0,15 

1050 DATA 159,0,213,0,5 

1060 DATA 169,0,28,1,10 



1070 
10 BO 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1190 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1460 
1490 
1500 
1510 
1520 
1530 
1540 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



189,0,28,1,30 

225,0,225,0.10 

28,1,225,0,15 

253,0,225,0,5 

225,0,253,0,10 

213,0,253,0,30 

253,0,253,0,10 

253,0,63,1,15 

12,1,63,1,5 

253,0,63.1.10 

225,0,253,0,17 

225.0.169,0,10 

12,1,225,0,10 

169.0,82.1,20 

253,0,82,1,10 

213,0,253.0,30 

189,0.253,0,10 

169,0,213,0,15 

159,0,213,0,5 

169.0,213,0,10 

189, 0.2B, 1,30 

225.0,28,1,10 

28,1,225.0,15 

253,0,225,0,5 

225,0,225,0,10 

213,0,253,0,30 

225,0,225,0,5 

253,0,213,0,5 

253,0,189.0,5 

12,1.169.0,15 

45,1.169,0,5 

12.1,169,0,10 

253,0,253,0,30 

253,0,126.0.10 

253,0.169,0,10 

253,0.253.0.30 

142,0.213.0,30 

142,0,189,0.5 

142.0,169.0.5 

142,0,169,0,15 

159,0,189,0,5 

169,0,213,0,10 

189,0,28.1,30 

189,0.253,0,5 

225,0,225,0,10 

28,1,225,0,15 

253,0,253,0,5 

225,0,28,1,10 



1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1B30 
1840 
1850 
1860 
1870 
18B0 
1690 
1900 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
END 



213,0 

213,0 

253,0 

253,0 

12,1. 

253.0 

225,0 

225,0 

12.1. 

82,1, 

82,1. 

142,0 

142.0 

142,0 

142.0 

159.0 

169,0 

189,0 

189,0 

225,0 

142,0 

253,0 

225,0 

213,0 

225,0 

253,0 

253,0 

12.1, 

45,1. 

12,1. 

253,0 

25 

2b 

25 

B, 



,253,0,30 

,225.0.5 

,213,0.10 

,213,0,15 

225,0,5 

,253,0,10 

,82,1,17 

,169,0,10 

225,0,10 

82,1,20 

123,1 .10 

,170,1,30 

,123,1.5 

,B2,1,10 

.82,1,15 

,123,1,5 

,170,1,10 

,2B.1,30 

.253,0,5 

,225,0.10 

,225,0,15 

,253,0,5 

,28,1,10 

,253,0.30 

,225.0,5 

,213,0,5 

, 189,0,5 

169,0,15 

169,0,5 

62.1,10 

,253,0,30 



A linha 10 protege a memoria acima 
de - 14501 para ali colocar a tabela. O 
laco FOR.,, NEXT entre as linhas 20 e 
40 usa READ para obter os numeros da 
tabela e POKE para transferi-Ios para 
a mem6ria. 

Cada linha DATA content os dados 
necessarios para um acorde, Os nume- 
ros sao respectivamente: byte menos sig- 
nificative da tonalidade do canal A, 
byte mais significativo dessa mesma to- 
nalidade, byte menos significativo da to- 
nalidade do canal B. byte mais signifi- 
cativo dessa mesma tonalidade e dura- 
cao do acorde. 

NSo se preocupe com os valores que 
determinam as tonalidades das nota.s. 
Em um prdximo artigo, apresentaremos 
urna tabela para a conversao dos para- 
metros da instrucao PLAY nos valores 
de registros do PSG. 




29 PROGRAMACAODEJOGOS 29 




DO OTEL© (2) 



Apresentamos neste artigo a segunda 
metade do jogo do Otelo, Depots 
de digita-la, completando o programa, 
desenvoiva algumas jogadas 
inteligentes... e derrote o computador! 



Aqui est A a ultima parte do jogo do 
Oteio. ApOs digitar as linhas neoessarias 
para completar a movimentacao do jo- 
gador, a rotina de movimentacao do 
computador e o final da rotina de jogo, 
voce 4 podera se considerar pronto para 
testar suas habilidades, desafiando o sen 
computador. 



VERIFICA(JAO DAS POSIQOES 



D 



2090 IF NF-1 THEN 2120 

2100 COLOR 1:LINE (0,182) -(255,1 

91} ,PSET,BF:DHAW-C4SeBW0.182":A 

S--E.ONGE DA JOOADA" :GOSUB 9300: 

FOB F-l TO 900: NEXT F 

2110 GOTO 2000 

2120 RF-0:FOR Q-l TO 8: IF C(Q)- 

THEN 2170 

2130 XP-X:YP-Y 

2140 XP-XP+D(Q.l) :YP-YP+D(Q.2) : 

IF XP-0 OR XP-9 OR YP-0 OR YP-9 

THEN C(Q)-Q:GOTO 2170 
2145 IF B(XP,YP)-2 THEN 2140 
2150 IF B(XP,YP)-1 THEN RF-1 :GO 
TO 2170 

2160 IF. B(XP,YP)-0 THEN C(Q)-0 
2170 NEXT Q 

2180 IF RF-1 THEN 2210 
2190 COLOR1:LINE(0,182)-(255,19 
1) , PSET,BF:DRAW"S8C4BM0,1B2":AS 
-"JOGADA NAO GANHA A TRILHA":GO 
SUB 9300: FOR F-l TO 900:NEXTF 
2200 GOTO 2000 

2210 FOR Q-l TO 8: IF C(Q)-0 THE 
N 2250 

2220 XP-X+D(Q,1) :YP-Y+D(Q,2) 
2230 IF B(XP,YP)-1 THEN 2250 



2240 B(XP.YP)-1:XP-XP+D(Q,D :YP" 
«YP+D(Q,2) :GOTO 2230 
2250 NEXT Q 
2260 B(X,Y)-1 
2270 CP- 2: RETURN 



2090 IF NF=1 THEN GOTO 2120 
2100 PRINT AT 17,0;"LONGE DA JO 
GADA": FOR F-l TO 500: NEXT F 
2110 PRINT AT 17,0;" 

"S GOTO 2 000 
2120 LET RF»0: FOR Q-l TO 8: IF 

C(Q)-0 THEN GOTO 2170 
2130 LET XP=X: LET YP=Y 
2140 LET XP=XP+D<Q,1) : LET YP=Y 
P+D(Q,2): IF XP-0 OR XP=9 OR YP 
=0 OR YP=9 THEN LET C(Q)=0: GO 
TO 2170 

2145 IF B(XP.YP)=2 THEN GOTO 2 
140 

Z150 IF B(XP,YP)-1 THEN LET P,F 
-1: GOTO 2170 
2160 IF B(XP,YP)-0 THEN LET C( 

Q)-0 

2170 NEXT Q 

2160 IF RF-1 THEN GOTO 2210 

2190 PRINT AT 17.0; "JOGADA NAO 

GANHA A TRILHA": FOR F-l TO 500 

: NEXT F 

2200 PRINT AT 17,0;" 

" : GOTO 2000 
2210 FOR Q-l TO 8: IF C (Q) =0 TH 
EN GOTO 2250 

22Z0 LET XP=X+D(Q,1}: LET YP=Y+ 
D(Q.2) 

2230 IF B(XP,YP)-1 THEN GOTO 2 
250 

2240 LET BCXP,YP)=1: LET XP=XP+ 
D(Q.l): LET YP=YP+D(Q,2) : GOTO 
2230 
2250 NEXT Q 



2260 LET B(X,¥)=1 
2270 LET CP-2: RETURN 



Wi 



2090 IFNF-1 THEN 2120 
2100 LINE(0,182)-{255,191) ,1,BF 
:DRAW"C15S8BM50,1B2":AS="LONGE 
DA JOGADA" :GOSUB9300:FORF=1T090 
0:NEXTF 

2110 GOTO 2000 

2120 RF-0:FORQ-l TO 8:IFC(Q)»0 
THEN2170 
2130 XP=X:YP=Y 

2140 XP-XP+D(Q,1) :YP=YP+D[Q,2) : 
IFXP-0 OR XP-9 OR YP-0 OR YP-9 
THENC (Q) -0 :GOTO2170 
2145 IF B(XP.YP)-2 THEN 2140 
2150 IF B(XP„YP)-1 THEN RF-l:GO 
TO 2170 

2160 IF B(XP.YP)-0 THEN C(Q)=0 
2170 NEXTQ 

2180 IF RF-1 THEN 2210 
2190 LINE(0,182)-(255.191) ,1.BF 
:DHAW"C15S8BM10. 182" :AS=" JOGADA 
NAO GANHA A TRILHA" :GOSUB9300 : 
FOBF=lTO900:NEXTF 
2200 GOTO 2000 

2210 FOBQ-lTO8:IFC(Q}*OTHEN2250 
2220 XP-X+DCQ.l) :YP-Y+D(Q,2) 
2230 IF B{XP.YP)=1 THEN2250 
2240 B(XP.YP)=l:XP-XP+D(Q.l) : YP 
-YP+D(Q,2) :GOTO2230 
2250 NEXTQ 
2260 B(X,Y)«1 
2270 CP=2: RETURN 



QBE] 




2090 IF NF ■ 1 THEN 2120 
2100 UT'AB (17): PRINT "JOGADA 
LONGE DAS MINHAS PECAS" : FOR F 
= TO 1500: NEXT 
2110 VTAB (17) : PRINT " 

" : GOTO 2 



2120 RF - 0: FOR Q = 1 TO 8: IF 

C(Q) =0 THEN 2170 
2130 XP - X:YP - Y 
2140 XP = XP + D(Q.1):YP = YP + 

D(Q,2): IF (XP - OR XP - 9) 
OR {YP - OR YP - 9) THEN C(Q) 

- 0: GOTO 2170 
2145 IF B(XP.YP) = 2 THEN 2140 
2150 IF B(XP.YP) = 1 THEN HF * 

1: GOTO 2170 
2160 IF B(XP.YP) - THEN CW 

= 
2170 NEXT 
2.180 IF RF = 1 THEN 2210 



Illl 



29 PR0G8AMACA0DEJ0G0S 29 



MQVIMENTACAO DO JQGADO R: 

VERIFICAC AO 

DAS POSI c5eS 

ROTINA DE MQVIMENTAC AO 
DO COMPUTADOR 



FINAL DA ROTINA 



DEJOGO 



ANUNCIO DO VENCEDOR 



OPCAO PARA 



NOVA PARTIDA 



2190 VTAB (i?) : PRINT " 
ADA MAC GANHA A THTLHA" : 
- TO 1500: NEXT 
2 200 VTAB (17) : PRINT " 



SUA JOG 
FOR F 



GOTO 2 



000 

2210 FOR = 1 TO B: IF C{Q) = 

THEN 2250 
2220 XP - X + D(Q,]):YP - Y + D 
(0.2) 

2230 IF B(XP.YP) - 1 THEN 2250 
2240 B(XP,YP) = 1:XP = XP + D(Q 
, 1);YP - YP + D(Q,2): GOTO 2230 
2250 NEXT Q 
2260 B{X.Y) * ) 
2270 OP = 2: RETURN 



Antes de sahar para a linha 2120, o 
indicador NF ve se ha aJguma peca do 
computador em um quadrado adjacen- 
te (linha 2090). Caso exista, a linha 2100 
imprime uma mensagem de erro. As li- 
nhas 2120 a 2170 verificam se a jogada 
encosta a peca em alguma fileira de pe- 
cas do adversario. 

A linha 2140 verifica se a posicao che- 
cada no passo anterior esta dentro dos 
limites do tabuleiro. Se nao estiver, es- 
ta posicao sera abandonada e a proxi- 
mo, testada. Na linha 2145, testamos se 
a peca em exame pertence, de fato, ao 
computador. Em caso afirmativo, o 
programa volta para a linha 2140 e atua- 
liza a posicao. 

A linha 2180 examina o resultado da 
ultima operacao. Se a fileira foi encon- 
trada, o programa salta para a linha 
2210. As linha s 2190 e 2200 imprimem 
uma mensagem no caso de uma filei- 
ra nao ser ladeada. O programa vol- 
ta para a linha 2000. 



A rotina que descreve a movimenta- 
cao do jogador esta contida entre as li- 
nhas 2210 e 2260 do programa. O teste 
C(Q) = 0, da linha 2210, verifica se uma 
fileira do adversario foi encontrada, por 
meio de um ciclo que vai de 1 a 8. Se 
n5o existir uma fileira naquela direcao 
<C(Q) = 0), o programa salta para a li- 
nha 2250 e verifica o Q seguinte. A po- 
sicao do pnmeiro quadrado da fileira a 
ser tomada — linha 2040 — & atribuida 
a XP e YP. 

Na linha 2230, o computador testa se 
o quadrado em questao e o ultimo da 
fileira, encerrando-a, portanto. Em ca- 
so afirmativo, o programa salta para a 
linha 2250. Na linha 2240, o programa 
atribui "um" ao quadrado e, em segui- 
da, volta para a linha 2230, onde testa 
o proximo quadrado. 

Na linha 2260, o quadrado do joga- 
dor recebe o valor inicial "um". O in- 
dicador CP recebe o valor "dois" para 
o computador e o programa retorna 
(por meio da linha 2270). 



A JOGADA DO COMPUTADOR 



a 

3000 COLOR 1: LINE (0,182) -(255.1 
91} , PSET,BF:A$-"MOVIMENTO DO CO 
MPUTADOR- :DRAVS8C3BM26, 1B2" :GO 
SUB 9300 :NF-l:MX-0 FOR X-l TO 8 




:FOR Y-l TO B 

3010 IF B(X,Y)<>0 THEN 3070 

3020 FOR F-l TO 8 :XP-X: YP-? :DX- 

D(F.l) :DY-D(F, 2) :RF-0 

3030 XP-XP+DY:YP-YP+DX:IF XP-0 

OR XP-9 OR YP-9 THEN 3060 

3040 IF B(XP,YP)-1 THEN RF-1:G0 

TO 3030 

3050 IF B(XP,YP)-2 AND BF-1 THE 

N N(NF)-F:X(NF)-X:Y(NF)-Y:NF-NF 

+l:F-9 

3060 NEXT F 

3070 NEXT Y,X:NF-NF-1 

3075 IF NF-0 THEN 3300 

3080 FOR F-l TO NF : X-X CF) : Y-Y (F 

) :DX-D(N(F) ,1) :DY-D(N(F) ,2) : CF- 



3090 X-X+DY:Y-Y+DX:IF B(X.Y)-1 

THEN CF-CF+l:OOTO 3090 

3100 IF CF>HX THEN HX-CF:MF-F 

3110 NEXT F 

3180 FOR F«l TO 8 :X-X (MF) : Y-Y (M 

F) :DX-D(F,1) :DY-D(F,2) 

3190 X-X+DY:Y-Y+DX 

319S IF X<1 OR X>8 OR Y<1 OR Y> 

8 THEN 3260 

3200 IF B(X.Y)-1 THEN 3190 

3210 IF B(X,Y)-2 THEN 3230 

3220 IF B(X,Y)-0 THEN 3260 

3230 X-X(MF) :Y-Y(MF) 

3235 B(X,Y)-2:X-X+DY:Y-Y+DX 

3240 IF B(X,Y)-2 THEN 3260 

3250 GOTO 3235 

3260 NEXT F 

3265 DRAW-S16iC2;BH118,150"+NUS 

{X(NF))+NU$(Y(MF})+"88- 

3270 CP-1 : RETURN 

3300 COLOR 1:LINE (0, 182) - (255 , 

191) ,PSET.BF:A$--NAO P0S30 HOVE 

R'*:DRAW"SaC4B}150.ie2":OOSUB 930 

0:FOR F-l TO 50 : NEXT: CP-1 : RETUK 

N 



3000 PRINT ' "PENSANDO. . ." : LET 
NF-1: LET HX-0: FOR X-l TO 8: 






n: 



II 
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FOR Y-l TO 8 

3010 IF B<X,Y)OQ THEN GOTO 30 
70 

3020 FOB F-l TO 8: LET XP-X; LE 
T YF-Y: LET DX-D(F,1): LET DY-D 
(F,2> : LET RF-Q 

30 30 LET XP-XP+DY: LET YP-YP+DX 
: IF XP-0 OR XP-9 OR YP-0 OR YP 
-9 THEM GOTO 3060 
3040 IF B(XP,YP)-1 THEN LET RF 
-1 : GOTO 3030 

3050 IF B(XP,YP)-2 AND P.F-1 THE 
N LET N(NF)-F: LET X(NF)-X; LE 
T Y(NF)*Yr LET NF-NF+1: LET F-9 
3060 NEXT F 

3070 NEXT Y: NEXT X: LET NF-NF- 
1 

3075 IF NF=0 THEN GOTO 3300 
3080 FOR F=l TO NF : LET X=X(F): 

LET Y=Y(F): LET DX=D(N (F) , 1 ) : 
LET DY=D(N<F) .2) : LET CF=0 
3090 LET X-X+DY: LET Y-Y+DX: IF 

B(X,Y)-1 THEN LET CF-CF+1 : GO 
TO 3090 



MJ.CJU} 



PROGRAMACAO DE MATRIZES 
A programacao de jogos de tabulei- 
fo em BASIC utiliza quase sempre a 
mesma tecnica: a da programacio de 
matrizes. Uma matriz retangular, divi- 
dida em linhas e colunas, 6 a estrutura 
de dados ideal para a programacao e re- 
presentacao de tabuleiros de xadrez, 
damas, Otelo, Reversi, Trilha, jogo da 
velha e outros. Entretanto, jogos que 
nao seguem o esquema de "quadradi- 
nhos" idantificados em linhas e colu- 
nas — como gamao, gomoku e ludo — 
tambem podem ser programados atra- 
ves de matrizes. 

Em um jogo de tabuleiro retangular, 
geralmente uma so matriz bidimenaio- 
nal nao basta para armazenar todos os 
dados exigidos. Tomemos como exem- 
plo o xadrez. A cor dos quadrados do 
tabuleiro pode ser computada por meio 
de uma equacao simples. E mais facil, 
porem, armazenar esse tipo de dado 
com codigos numericos, em uma ma- 
triz COR (8,8). Precisaremos, ainda, 
de uma matriz para indicar as pecas 
que ocupam cada quadrado {novamen- 
te, podemos utilizar cddigos, como 
piao = 1 , torre - 2 e assim por diante). 
Outras matrizes serao necessaries pa- 
ra dados referentes a movimentos, 
capturas etc. 

Tudo isso torna a programacao de 
jogos de tabuleiro mais complexa do 
que parece. Portanto, se voce preten- 
ds testar sua habilidade como progra- 
mador, escolha um jogo bem facil pa- 
ra comecarl 



3100 IF CF>MX THEN LET MX-CF: 
LET MF-F 
3110 NEXT F 

3180 FOR F-l TO 8: LET X-X(MF): 
LET Y-Y(MF): LET DX-D(F.1>: LE 
T DY-D(F,2) 

3190 LET X-X+DY: LET Y-Y+DX 
3195 IF X<1 OR X>8 OR Y<1 OR Y> 
S THEN GOTO 3260 
3200 TF B<X,Y)-1 THEN GOTO 319 

3210 IF B(X,Y)=2 THEN GOTO 323 



3220 IF B<X,Y)-Q THEN GOTO 326 



3230 LET X-X(MF); LET Y-Y(MF) 

3235 LET B(X,Y)-2: LET X-X+DY: 

LET Y-Y+DX 

3240 IF B{X,Y)=2 THEN GOTO 326 



3250 GOTO 3235 

3260 NEXT F 

3265 PRINT X(HF),Y(MF}: INPUT A 

S 

3270 LET CP-1: RETURN 

3300 PRINT AT 17, Or "NAO POSSO J 

OGAR": FOR F-l TO 500: NEXT F 

3305 PRINT AT 17,0;* 

3310 LET CP-1 
33 20 RETURN 



Wi 



3000 LINE(0,1B2)-(255,191) ,1,BF 

: DRAW" S8C15BM3Q, 182" :A$-"COHPUT 

ADOR JOGANDO" :GOSUB9300:NF-1:MX 

> : FORX= 1 TOB : FORY- 1 T08 

3010 IFB(X,Y)O0THEN3070 

3020 FORF-1TOB : XP-X : YP-Y : DX-D {F 

,1) :DY-D<F,2) :RF-Q 

3030 XP-XP+DY :YP=YP+DX:IFXP«0 O 

R XP-9 OP YP-0 OR YP-9 THEN3060 

3040 IFB(XP,YP)-lTHENRF-l:GOT03 

030 

3050 IFB(XP,YP)-2 AND RF-1 THEN 

N (NF> -F : X (NF) -X : Y {NF ) =Y : NF=NF+ 
l:F-9 

3060 NEXTF 

3070 NEXTY,X:NF-NF-1 
3075 IF NF=0 THEN 3300 
3080 FORF-lTONF:X=X(F) :Y=Y(F) :D 
X-D(N(F) ,1) :DY-D(N{F> ,2) :CF=0 
3090 X-X+DY: Y-Y+DX: IFB(X,Y)-1TH 
ENCF-CF+1 :GOTO3090 
3100 IFCF>MX THEN MX-CF:MF-F 
3110 NEXTF 

3180 FORF-lT08:X-X(MF) :Y-Y(MF) : 
DX-D(F,1) :DY=D(F,2) 
3190 X-X+DY :Y-Y+DX 
3195 IFX<1 OR X>6 OR Y<1 OR Y>8 

THEN3260 
3200 IF B(X,Y)=1 THEN 3190 
3210 IF B{X.Y}«=2 THEN 3230 
3220 IF B(X,Y)-0 THEN 3260 
3230 X-X(MF) :Y-Y(MF) 
3235 B(X,Y) -2 :X-X+DY: Y-Y+DX 
3240 IF B(X,Y)-2 THEN 3260 
3250 GOTO 3235 
3260 NEXTF 
3265 DRAW"S16BM114.154"+NUS(X(M 




F))+NUS(Y(WF))+"S8' 

3270 CP-1:RETURN 

3300 LINE(0,182)-(255,191) ,1,BF 

:DRAW"C15S8BM50,182":AS-"NAO PO 

330 JOGAR" :GOSUB9300: FORF-1TO90 

0: NEXTF: CP-1 : RETURN 

DEE] 

3000 NF - 1:MX 

B: FOR Y - 1 
3010 IF B(X,Y 

3020 FOR F ■ 

- Y'.DX - D(F,1 

- 
3030 XP = XP + 

IF (XP = OR 

OR YP - 9) 
3040 IF B{XP, 

1: GOTO 30 30 
3050 IF B(XP. 

1 THEN N(NF) = 
} - Y:NF - NF 
3060 NEXT F 
3070 NEXT Y: 
1 
3075 IF NF - 



- 0: FOR X - 1 T 
TO 8 
) < > THEN 307 

1 TO 8:XP - X:YP 
) :DY - D(F,2) : RF 

DY:YP - YP + DX: 
XP - 9) OR (YP - 

THEN 3060 

YP) = 1 THEN RF = 

YP) - 2 AND RF - 

F:X(NF) = X:Y<NF 
+ 1:F - 9 

NEXT X:NF - NF - 

THEN 3300 
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3080 


FOR F - 1 


TO NF:X 


- XCF) : 


Y - ' 


{ (F) :0X - D(N(F) ,1) ! 


DY - D( 


N{F) 


2) :CF - 






3090 


X - X + DY 


:Y - Y + 


DX: IF 


B(X,Y) - 1 THEN 


CF - CF 


+ 1: GO 


TO 3090 






3100 


IF CF > HX THEN MX 


- CF:M 


F ■ F 






3110 


NEXT 






3180 


FOR F - 1 


TO 8:X - 


X(MF) : 


Y - Y(MF) :DX - D(F,1>:DY 


- D{F, 


2) 








3190 


X - X + DY 


Y - Y + 


DX 


3195 


IF X < 1 OR X > 8 


OR Y < 


1 OR 


Y > 8 THEN 


3260 




3200 


IF B(X,Y) 


- 1 THEN 


3190 


3210 


IF B(X,Y) 


- 2 THEN 


3230 


3220 


IF B<X,Y) 


- THEN 


3260 


3230 


X - X(MF) :Y = Y(MF) 




3235 


B(X,Y) - 2 


X - X + 


DY:Y - 


Y + DX 






3240 


IF B(X,Y) 


- 2 THEN 


3260 


3250 


GOTO 3235 






3260 


NEXT 






3265 


VTAB (17) 


PRINT " 


MINHA J 


0C1ADA (LINHA, COLUNA) - " 


iX(MF)i 


",' sY(MF) : FOR F - TO 


3000: N 


EXT 









3270 VTAB (17) : PRINT " 

":CP - 1: RETURN 
3300 VTAB (17): PRINT "NAO POS 
SO JOQAR": FOR F - TO 15O0 : N 
EXT If 

3310 VTAB (17) : PRINT " 
■:CP - 1: RETURN 



No comeco, o numero de quadrados 
em uma fileira e urn, e o numero maxi- 
mo de pecas, zero (linha 3000). Dois la- 
50s — com variaveis de controle X e Y 
— sao iniciados, com a func&o de pro- 
curar espacos vazios no tabuleiro. Esta 
e a parte do programa que consome 
maior tempo. No decorrer do jogo, a 
medida que o numero de quadrados va- 
zios diminui, tempo de jogada do 
computador tambem vai diminuindo. 

A linha 3010 verifica se quadrado 
esti vazio. Se nao estiver, computa- 
dor salta os prdximos comandos (linha 
3070). As linhas que vao de 3020 a 3060 
verificam se o quadrado esta no fim de 
uma fileira que podera ser tomada pelo 
computador. XP e YP sao usados da 
mesma maneira que anteriormente. DX 
e DY representam os conteudos do ve- 
tor direcao DO e economizam bastante 
espaco de mem6ria. 

A linha 3030 checa se o quadrado que 
vai ser testado esta dentro dos limites do 
tabuleiro, Se ele nao estiver, a prdxima 
direcao sera testada. Se o quadrado em 
exame pertencer ao jogador, a rotina 
voltara para a linha 3030 para verificar 
se o quadrado seguinte esta ocupado por 
ele. 

A linha 3050 examina tabuleiro, pa- 
ra saber se esta sendo ocupado pelo 
computador. Caso esteja, e se alguma 
fileira tiver sido encontrada, as posicdes 
iniciais serao gravadas em X() e Y(), e 
numero da direcao sera gravado em 
NO- O contador que indica o numero de 
coordenadas encontradas 6 tambem in- 
crementado. 

Apenas a primeira fileira sera "me- 
morizada", para garantir que a busca 
leve o menor tempo possfvel. 

As linhas 3080 a 3110 encontram a 
jogada capaz de fornecer o placar mais 
longo em uma linha reta. Um ciclo que 
varia de 1 ate NF (numero de quadra- 
dos encontrados) e acionado, X e Y sao 
equacionados com X(F) e Y(F>. As 
coordenadas de direcao (DX e DY) re- 
cebem valores iniciais correspondentes 
as direcoes indicadas por N(F). Um con- 
tador temporario (CF) e zerado a cada 
execucao do ciclo. 

A linha 3090 verifica se a peca que 
foi testada e a do jogador. Em caso afir- 
mativo, CF € incrementado e o proxi- 
mo quadrado naquela direcao toma-se 




objeto de teste. A linha 3100 compara 
numero encontrado (CF) com valor 
maximo anterior (MX). Se o primeiro 
for maior, MX assume valor de CF e 
MF, as coordenadas da melhor peca en- 
contrada, indicada pelo valor do conta- 
dor do laco, ou seja, F. 

As linhas 3180 a 3260 executam a ro- 
tina de movimentacao. A linha 3180 ini- 
cia um ciclo que vai de 1 a 8, de forma 
que todas as fileiras possam ser encon- 
tradas. 

As variaveis X, Y, DX e D Y recebem 
valores iniciais conforme foi explicado 
anteriormente. A linha 3195 checa se X 
e Y ainda estao no tabuleiro. Caso eles 
nao estejam, programa salta imedia- 
tamente para a linha 3260, que content 
uma instrucao NEXT. 

A Linha 3200 verifica se jogador es- 
ta ocupando um quadrado. Se estiver, 
a rotina salta para ten tar o pr6ximo qua- 
drado da fileira. Nenhum quadrado t al- 
terado, pois a rotina esta apenas reali- 
zando testes, 

Se a fileira terminar em um quadra- 
do ocupado pelo computador, X e Y sao 
reinicializadas e as linhas 3235 a 3250 al- 
teram todos os quadrados na fileira. Se 
um quadrado vazio for encontrado, 
tenta-se uma nova direcSo. 

Assim que a rotina de movimenta- 
cao tiver decidido para qual quadrado 
ira se dirigir, a linha 3265 imprimira as 
coordenadas e aguardara que a tecla 
< ENTER > seja pressionada. 

Na vez do jogador, o indicador CP 
comeca valendo "um" (linha 3270) e, 
depois, volta para ciclo principal. 



FIM DE JOG0 



Q 



4000 IF PS>C3 THIN 5000 
4010 IF P8-CS THEN 6000 



m 




Como adapter urn jogo que utiliza 
pegas coloridas para um micro com 
video monocrometicQ? 

Dependendo do tipo de jogo, a adap- 
tacao nao 6 nada f acil. Mas existem al 
gumas alternativas cujo resultado e 
bastante razoavel: 

• Para diferenciar as pegas dos opo- 
nentes, utilize recursos graficos como 
hachurados. quadriculados ou pontilha- 
dos, cujo efeito e bem visfvel em preto 
e branco. Voce s6 tera problemas se as 
pegas forem pequenas a ponto de nao 
haver espago para nenhum tipo de de- 
senho que as identifique. 

• Tambem como elemento de diferen- 
ciacao, faga uso do vfdeo inverso/vfdeo 
direto — por exemplo, pedras pretas 
em um quadrado preto, pedras brancas 
em um quadrado branco e pedras so- 
bre quadrados de outra cor. 

• Se o seu computador possui um vf- 
deo monocromatico multitonal (isto e, 
em que as cores tern correspondencia 
em diversas tonalidades de verde ou 
cinza), identifique as pegas dos opo- 
nentes utilizando intensidades ou bri- 
Ihos diferentes. 



- 



4015 AS--FOI FACIL" 

4020 COLOR 1: LINE (0,162) -(255,1 

91) .PSET.BF: DRAW* S8C2BM70. 182": 

GOSUB 9300 

4025 FOR F-l TO 1500: NEXT F 

4030 COLOR 1: LINE (0,182) -(255,1 

91) . PSET,BF:A$-'O.UER JOGAR OUTR 

A VEZ ?":DRAW"C3BH0,182":GOSUB 

9300 

4040 A$-INXEX$:IF A3<>"8" AND A 

SO"N" THEN 4040 

4050 IF A3--S" THEN RUN 

4060 END 

5000 AS-"VOCE TEVE SORTE" 

5010 GOTO 4020 

6000 AS- "EMPAT AMOS ": GOTO 4020 



4000 IF PS>CS THEN GOTO 5000 

4010 IF PS-CS THEN GOTO 6000 

4020 PRINT AT 17,0; INK 2;"FOI 

FACIL ! " 

40 30 PRINT "QUER JOGAP, OUTRA VE 

2 ? (S/N)" 

4040 LET AS-INKEY$: IF AS<>"S" 



□■DGCOCO 

Dcr 1 

IDDDD 

Innn n 

brrrrcv 

■GDL3I 



INK 2; "VOCE 



AND AS<>"N* THEN GOTO 404(1 
4050 IF AS-"S" THEN RUN 
4060 STOP 
5000 PRINT AT 17,0; 

TEVE SORTE !" 
5010 GOTO 4030 
600 PRINT AT 17,0; 
EMPATAM0S . . . 
CISO PRAT I CAR HAIS 




BEDS 



IF PS > CS THEN 5000 
IF PS ■ CS THEN 6000 
VTAB (17): PRINT "FOI FAC 



INK 2 



NOS 
PRE 
GOTO 403 



Wi 



4000 IF PS>CS THEN 5000 

4010 IF PS-CS THEN 6000 

4015 A5-"FOI MUITO FACIL" 

4020 LINE(0,182)-(255,191) ,1,BF 

:DRAW"C15S8BM?0,182":GOSUB9300 

4025 FORF-1TQ1500:NEXTF 

4030 LINE(0,182)-(255.191) ,1,BF 

:A3<-"QUER JOGAR NOVAMENTE" : DRAW 

"C15BM30. 182" :GOSUB9300 

4040 AS=INKEY$:IFASO"S" AND A3 

O'a" AND A$<>"N- AND A$<>"n" T 

HEN 4040 

4050 IF A$«"S* OR A$-"a" THEN R 

UN 

4060 END 

5000 AS-"VOCE TEVE SORTE" 

5010 GOTO 4020 

6000 AS-"UM BELO EKPATE" ; GOTO40 

20 



4000 

4010 

40Z0 

IL !" 

4 30 INPUT *QUER JOGAR NOVAMEN 

TE (S/N) "jA$ 

4040 AS - LEFTS (A3,l): IF AS 

< > "S" THEN END 

40 50 RUN 

4060 END 

5000 VTAB (17) : PRINT "VOCE TE 

VE SORTE DESTA VE2 I" 

5010 GOTO 4030 

6000 VTAB (17): PRINT " EMPATAM 

OS. PRECISO TREINAB HAIS !": GO 

TO 4030 

A rotina de fim de jogo cornea na Ji- 
nha 4000, que verifica se o jogador ven- 
ceu, comparando PS com CS. O progra- 
ma salta para a linha 5000 para impri- 
mir a mensagem de vit6ria. A linha 4010 
detecta a ocorrencia de empate, e a men- 
sagem correspondente e impressa pela li- 
nha 6000. Se o computador tiver venci- 
do, o programa atinge a linha 4020 e exi- 
be uma mensagem para o jogador. As 
linhas restantes oferecem a opcao para 
uma outra partida. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



PROGRAMACAO BASIC 

As secoes do cone. Cfrculos, elipses, parabolas e hiperboies. 
Rotacao de curvas. Aplicagoes praticas. 

CODIGO DE MAQUINA 

Em busca do lanche perdido, o her6i de Avalanche deve escalar uma montanha. 
Use blocos graficos para construMa. 

PROGRAMACAO BASIC 

Voci goslaria de criar sprites no MSX? Comece, entao, por estudar a 
organizacao da mem6ria de vfdeo do seu micro. 
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